vb怎么将表格里的数据 导入到text2中,求 大神指导。表格是msflexgrid控件 5
1个回答
2016-03-17 · 做真实的自己 用良心做教育
千锋教育
千锋教育专注HTML5大前端、JavaEE、Python、人工智能、UI&UE、云计算、全栈软件测试、大数据、物联网+嵌入式、Unity游戏开发、网络安全、互联网营销、Go语言等培训教育。
向TA提问
关注
展开全部
在机房收费系统中,其中有一个功能是:将Msflexgrid控件中的数据导入到excel中,经过几天的奋战,连查带改,现在提供一种方法,仅供参考:
实现这个功能,首先需先在工程中引用MrcrosoftExcel xx Object Library,然后新建一个模块,声明如下子过程:[vb]
Public SubOutDataToExcel(Flex AsMSFlexGrid) '导出至Excel
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
OnError GoTo Ert
Me.MousePointer = 11
Dim Excelapp As Excel.Application
Set Excelapp = New Excel.Application
OnError Resume NextDoEvents
Excelapp.SheetsInNewWorkbook = 1
Excelapp.Workbooks.Add
Excelapp.ActiveSheet.Cells(1, 3) = s
Excelapp.Range(C1).Select
Excelapp.Selection.Font.FontStyle=Bold
Excelapp.Selection.Font.Size = 16With Flexk= .Rows
For i = 0 To k - 1
For j = 0 To .Cols - 1DoEvents
Excelapp.ActiveSheet.Cells(3 + i, j + 1) =' &.TextMatrix(i, j)Next jNext iEnd With
Me.MousePointer = 0
Excelapp.Visible = True
Excelapp.Sheets.PrintPreviewErt:
If Not (Excelapp Is Nothing) Then
实现这个功能,首先需先在工程中引用MrcrosoftExcel xx Object Library,然后新建一个模块,声明如下子过程:[vb]
Public SubOutDataToExcel(Flex AsMSFlexGrid) '导出至Excel
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
OnError GoTo Ert
Me.MousePointer = 11
Dim Excelapp As Excel.Application
Set Excelapp = New Excel.Application
OnError Resume NextDoEvents
Excelapp.SheetsInNewWorkbook = 1
Excelapp.Workbooks.Add
Excelapp.ActiveSheet.Cells(1, 3) = s
Excelapp.Range(C1).Select
Excelapp.Selection.Font.FontStyle=Bold
Excelapp.Selection.Font.Size = 16With Flexk= .Rows
For i = 0 To k - 1
For j = 0 To .Cols - 1DoEvents
Excelapp.ActiveSheet.Cells(3 + i, j + 1) =' &.TextMatrix(i, j)Next jNext iEnd With
Me.MousePointer = 0
Excelapp.Visible = True
Excelapp.Sheets.PrintPreviewErt:
If Not (Excelapp Is Nothing) Then
追问
其实我对vb知之甚少,希望你能在你这个编程的基础上 帮我改成 text 小弟感激不尽
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询