第一次机房收费系统之导出到Excel

       导出到excel是机房收费系统中很重要的一个功能，在里面占了很多的比重，很多页面都用到了这个功能。现在来学习一下怎样做出这个功能：

第一步：在VB中“工程”→“引用”中添加引用：

       “可用的引用”中没有的，可以点击“浏览”通过上面显示的定位查找一下。

第二步、代码实现:

       将数据从VB控件MSHFlexGrid中导出。

 

Private Sub cmdout_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 MSHFlexGrid1.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 MSHFlexGrid1.Rows - 1            '填入数据
            For j = 0 To MSHFlexGrid1.Cols - 1
                xlSheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j)        'cell(a,b)表示a行，b列
            Next j
            Next i
        xlApp.Visible = True         '显示Excel表格
        Set xlApp = Nothing          '交还控制给Excel
    End If
End Sub

       总结：开始做这个功能的时候实在是不知道怎么做，很是焦头烂额。然后上网查询，结合自己思路和想法，终于实现了这个功能。现在看看自己的代码，也没什么嘛。以后可能会碰到各种困难，但是要相信自己，坚持去做就一定会成功的。