在机房收费体系中,其中有一个功效是:将Msflexgrid控件中的数据导进到excel中,经过几天的奋战,连查带改,现在供给一种方式,www.mtslf.com,仅供参考:
实现这个功效,1.85星王传说,首先需先在工程中”引用”MrcrosoftExcel xx Object Library”,然后新建一个模块,声明如下子进程:
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 Next DoEvents Excelapp.SheetsInNewWorkbook = 1 Excelapp.Workbooks.Add Excelapp.ActiveSheet.Cells(1,hnsfgl.com, 3) = s Excelapp.Range("C1").Select Excelapp.Selection.Font.FontStyle="Bold" Excelapp.Selection.Font.Size = 16 With Flex k= .Rows For i = 0 To k - 1 For j = 0 To .Cols - 1 DoEvents Excelapp.ActiveSheet.Cells(3 + i, j + 1) ="'" &.TextMatrix(i, j) Next j Next i End With Me.MousePointer = 0 Excelapp.Visible = True Excelapp.Sheets.PrintPreview Ert: If Not (Excelapp Is Nothing) Then Excelapp.Quit End If End Sub
调用该子进程直接浮现的是EXCEL打印预览界面,http://www.honsie.com/,假如须要编纂,把上面子进程中的Excelapp.Sheets.PrintPreview 和 Excelapp.Quit 这二条语句往掉,这样就会直接显示导进数据后的Excel表.
然后在命令按钮单击事件下编写如下代码:
Private sub command1_click() OutDataToExcel MSFlexGrid1End sub
(注意,今日新开征途私服,MSFlexGrid1是在vb中的表格控件名)
|