VB-机房收费系统之Excel导出

敲机房很久了，感觉对代码的感知力终于有所提高了，很是开心。今天在敲学生充值记录查询的时候发现，其中有了新的知识，  这时候就该到了分析问题的时候了。不说废话了！

首先

保证自己的笔记本或者电脑上必须有Office。

接着

在VB中我们要找到所要用到的控件：Microsoft Excel14.0 Object Labilary。步骤如下：

工程——引用——Microsoft Excel14.0 Object Labilary

然后

有了工具，当然得赶紧实现他的用途了。在生活中，我们有时候需要对自己查出来的数据进行处理，有时候数据所在的地方不容易进行编辑，需要给它换个环境进行完美的编辑，这时候这个工具就发挥作用了。看吧↓↓

功能：实现从MSHFlexgrid中导出数据到Excel表格中。

分析：首先确定控件MSHFlexGrid中是否有数据；然后创建一个Application，将数据写入到Excel。

实践：

Private Sub CmdOut_Click()

    '判断MSHFlexGrid控件中是否有可写入Excel是数据。
    If MyFlexGrid.TextMatrix(1, 0) = "" Then
        MsgBox "没有可以导入到Excel的数据！", vbOKOnly + vbExclamation, "警告！"
        Exit Sub
    End

    '创建一个Application对象

    Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application

    '绑定
    Set excelApp = CreateObject("Excel.Application")

    '向Excel中写入数据
    Dim exbook As Excel.Workbook
    Dim exsheet As Excel.Worksheet
    Set exbook = excelApp.Workbooks.Add
    excelApp.SheetsInNewWorkbook = 1

    '设置为可见
    excelApp.Visible = True

    '将控件Myflexgrid显示内容写入Excel
        Dim i As Integer
        Dim j As Integer

        With excelApp.ActiveSheet
            For i = 1 To MyFlexGrid.Rows
                For j = 1 To MyFlexGrid.Cols
                    .Cells(i, j).Value = "" & Format$(MyFlexGrid.TextMatrix(i - 1, j - 1))
                Next j
            Next i
        End With

    '清空并关闭
    Set exsheet = Nothing<pre name="code" class="html">

以上就是整个VB中导出Excel表的过程与实践。看看机房收费系统，有好多地方都用到了将MSHFlexGrid控件中的数据导出到Excel表格这个功能。想想为什么不自定义一个过程，然后用到的时候直接调用不就可以了吗？于是就有了下面的东西：

</pre><pre name="code" class="html">Public Sub excelOut(MyFlexGrid As MSHFlexGrid)
    Dim excelbook As Object
    Dim excelsheet As Object
    Dim excelApp As Excel.Application
    Dim i As Integer
    Dim j As Integer

    Set excelApp = New Excel.Application
    '创建对象
    Set excelApp = CreateObject("excel.application")
    '打开文件
    excelbook = excelApp.Workbooks.Add
    '对象可见
    excelApp.Visible = True

    With excelApp.ActiveSheet
        For i = 1 To MyFlexGrid.Rows
            For j = 1 To MyFlexGrid.Cols
                .Cells(i, j).Value = "" & Format$(MyFlexGrid.TextMatrix(i - 1, j - 1))
            Next j
        Next i
    End With
End Sub

用到的时候直接调用就OK了。

Private Sub cmdOut_Click()  '输出
             
           '如果行数小于2，就没有数据，如果大于2，就调用函数输出导出excel表
            If Rechargeflexgrid.Rows < 2 Then
                   MsgBox "没有数据！", vbOKOnly + vbExclamation, "警告"
                   Exit Sub
            Else
              
                Call excelOut(RechargeMyflexgrid)         '调用模块中定义的函数
            End If
End Sub

只要努力坚持，相信自己，我们一定能行。