VB 將MSHFlexGrid中資料匯出到Excel

1、在工程中引用Microsoft Excel類型庫： 

        在“工程”菜單中選擇“引用”，選擇“Microsoft Excel 14.0 Objects Library” ，點擊確定。表示工程中要引用EXCEL類型庫。

       

2.用代碼將MSHFlexGrid中的內容寫到表格中：

    Private Sub cmdPutout_Click()
        Dim i As Integer
        Dim j As Integer

        Dim Excelapp As Excel.Application
        Dim Excelbook As Excel.Workbook
        Dim Excelsheet As Excel.Worksheet

        Set Excelapp = New Excel.Application        '建立一張表
        Set Excelbook = Excelapp.Workbooks.Add      '添加新工作薄
        Set Excelsheet = Excelbook.Worksheets(1)        '建立工作表

        DoEvents

        With MSHFlexGrid1       '將MSHFlexGrid1中內容寫到表格中
            For i = 0 To .Rows - 1
                 For j = 0 To .Cols - 1
        
                 DoEvents
                      Excelapp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)
                 Next j
            Next i
        End With

        Excelapp.ActiveWorkbook.SaveAs "E:\電腦學習\暑假二\機房收費系統——我" & "\儲值.xls"      '表格儲存路徑
        Excelapp.ActiveWorkbook.Saved = True        '儲存表格
        Excelapp.Quit
        MsgBox "匯出完成！", vbInformation, "提示"
      
End Sub

以上完成了對vb資料的匯出工作。

3.vb中對錶格操作的基本操作。

     (1) 顯示當前視窗：

          ExcelAPP.Visible=True

     (2) 設定第二個工作表為使用中工作表

          ExcelAPP.WorkSheets[2].Activate;或 ExcelAPP.WorkSheet['Sheet2'].Activate

     (3) 開啟一存在的工作薄：

          ExcelAPP.WordBooks.Open('C:\Excel\儲值.xls')

     (4) 刪除一行或一列：

          a. ExcelAPP.ActiveSheet.Rows[2].Delete;

          b. ExcelAPP.ActiveSheet.Column[1].Delete

     (5) 預覽列印工作表：

          ExcelAPP.ActiveSheet.PrintPreview;

     (6) 列印輸出工作表：

          ExcelAPP.ActiveSheet.PrintOut;

     (7) 儲存工作表：

          見上邊程式碼

     (8)關閉工作表：

         ExcelAPP.WorkBooks.Close;