（vb）机房收费系统之——调用excel 表格(引用)

在机房收费系统中，将vb中的数据导出到excel表格真的很重要，在这里遇到了各种各样的问题，下来和我一起来解决它吧！！

一、前期准备工作

在解决问题之前，我先声明一下，我的是office 2013，有些版本不一样，只会有一点点差别，只需要模仿就好！

1、点击工程——引用，去找到microsoft excel 15.0 object library，打上勾就好！

2、如果此时你的引用里没有microsoft excel 15.0 object library，那么这时候就需要点击浏览，找到你安装文件office的位置，找到位置后打开office 2013！

3、此时点击了office15，然后，点击文件类型，选择.exe,然后找到execel.exe,点击，然后点击打开.

4、此时就大公告成了

二、代码部分

这部分我还是有很多感想的，大家都知道机房收费系统中，有很多都需要导成excel表格的形式，什么是解决重复的代码最好的帮手呢？模块就是！在模块里我们定义一个函数，用来调用excel！会减少大量的代码，接下来大家一起和我来实现它吧！！

1、模块的代码部分！

Public Function EduceExcel(myGrid As MSFlexGrid)  '定义导出excel函数
    Dim xlapp As New excel.Application  '之所以用到new。是因为是引用类型，声明excel对象
    Dim xlbook As excel.Workbook   '声明工作簿对象
    Dim xlsheet As excel.Worksheet  '声明工作表单
    Dim i As Integer
    Dim j As Integer
    If myGrid.Text = "" Then
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Function
    Else
       Set xlapp = CreateObject("excel.application")  '调用excel程序
       Set xlbook = xlapp.Workbooks.Add(1)            '创建新的空白簿
       Set xlsheet = excel.ActiveWorkbook.ActiveSheet '创建新的工作表单
       For i = 0 To myGrid.Rows - 1
       '填入数据
         For j = 0 To myGrid.Cols - 1
            xlsheet.Cells(i + 1, j + 1) = myGrid.TextMatrix(i, j)        'cell(a,b)表示a行，b列，这让写是因为vb中默认是从0开始的，而excel是从1开始的
         Next j
        Next i
        xlapp.Visible = True         '显示Excel表格
        Set xlapp = Nothing          '交还控制给Excel
    End If
End Function

2、窗体调用的代码！

   Call EduceExcel(MSFlexGrid1)

这一句即可，MSFlexGrid1就是你的当前窗体的msflexgrid控件的名称！

总结：我之前总结的模块的代码的知识，发挥了作用，利用好了模块，节省了大量的代码！！！