閱讀761 返回首頁    go 阿裏雲 go 技術社區[雲棲]

機房收費係統——VB將MSHflexgrid控件中的數據導出為Excel

     

      在做機房收費係統的時候，許多窗體用到的一個功能，就是將從數據庫中提取出來的數據導出到Excel中。

  首先，引用Microsoft Excel 14.0 Object Library

  然後，寫代碼

 

  

Public Sub OutDataToExcel(Flex As MSHFlexGrid)  '導出至Excel

    Dim i As Integer
    Dim j As Integer
    Dim Line As Integer
    Dim outExcel As Excel.Application
    
    Set outExcel = New Excel.Application  '實例化Excelapp
    
    '返回或設置插入microsoft excel 新工作薄中工作表的數目
    outExcel.SheetsInNewWorkbook = 1
     
     '添加新的工作薄
    outExcel.Workbooks.Add
    
    'excel剛打開時，設定遊標的位置
    outExcel.Range("K1").Select
    
    '字形
    outExcel.Selection.Font.FontStyle = "Bold"
    outExcel.Selection.Font.Size = 14           '字體大小
    
    With Flex
        Line = .Rows
        For i = 0 To Line - 1  '行循環
            For j = 0 To .Cols - 1    '列循環
                '將數據導入到Excel中
                outExcel.ActiveSheet.Cells(1 + i, j + 1) = "'" & .TextMatrix(i, j)
            Next j
        Next i
    End With
    
    outExcel.Visible = True   '是否顯示導出過程（true是）
       
End Sub

Private Sub cmdExport_Click()
    OutDataToExcel myFlexGrid       '將myflexgrid中的數據導出至Excel
End Sub
 

    顯示數據庫中的數據，可以用MSHflexgrid控件，也可以用DataGrid控件，後者需要引用Microsoft ActiveX Date Objects2.0 Library，並且添加Microsoft Dategrid Control6.0部件。

 

 


 

 

   

 

最後更新：2017-04-03 14:54:20

  上一篇：go live cd compile program
  下一篇：go DirectShow使用說明