机房收费系统——导出Excel表

前言

     机房收费系统进行了很长时间，其中很典型的一个功能就是导出Excel表格，很多窗体都需要实现这个功能。

主要内容

      首先需要在VB的“工程”→引用  Microsoft Excel 15.0object library

       然后从VB中的MSHFlexGrid中导出数据，代码实现如下：

Private Sub cmdoutput_Click()
    Dim xlApp As New Excel.Application        '声明Excel对象
    Dim xlBook As Excel.Workbook              '声明工作簿对象
    Dim xlSheet As Excel.Worksheet            '声明工作表单
    Dim i As Integer
    Dim j As Integer
      
    If MSFlexGrid1.Text = "" Then            '判断是否有记录可以导出
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        Set xlApp = CreateObject("excel.application")     '调用execel程序
        Set xlBook = xlApp.Workbooks.Add(1)               '创建新的空白簿
        Set xlSheet = Excel.ActiveWorkbook.ActiveSheet    '创建新的工作表单
            For i = 0 To MSFlexGrid1.Rows - 1            '填入数据
            For j = 0 To MSFlexGrid1.Cols - 1
                xlSheet.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)        'cell(a,b)表示a行，b列
            Next j
            Next i
        xlApp.Visible = True         '显示Excel表格
        Set xlApp = Nothing          '交还控制给Excel
    End If
End Sub

小结

     起初遇到这个功能不知道怎么去实现，然后到网上查了一下，看了很多巨人的博客，突然恍然大悟，遇到不懂的一定要利用好我们的搜索引擎，对我们的帮助真的很大。