【机房收费系统——导入Excel】

         在机房收费系统中vb与EXCEL的交换应该算是一个新的知识，之前我们在做学生的时候没有接触过，但是这个EXCEL的导出相对上一篇的报表而言那应该是很简单的了。在此篇博客中将介绍两种方法进行EXCEL的导出。

   准备：

       我们要想让vb与EXCEL交互成功，我们必须保证电脑上面已经安装office，再就是我们需要做的一件事情就是：工程——属性——Microsoft Excel 14.0 Object Library.

  方法一：

       通常是我们大家都非常喜欢的一种就是，那个窗体需要，我就在那个窗体编写代码，在第二个窗体需要的时候我们就直接复制  粘贴过去，看到满满的一整个窗体的代码感觉很自豪（我也是这么做的但是被师傅指点了），下面介绍这种方法的代码：

   

    Dim xlsapp As Excel.Application
    Dim xlsbook As Excel.Workbook
    Dim xlssheet As Excel.Worksheet
    Dim i, j As Long
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    Set xlsapp = CreateObject("excel.application")  '调用execel程序
    Set xlsbook = xlsapp.Workbooks.Add          '添加工作簿
    Set xlssheet = xlsbook.Worksheets(1)        '添加工作单元
    
    With xlsapp
                .Rows(1).Font.Bold = True       '表格中字体样式
        End With
        
        On Error Resume Next
                                '把MSHFlexgrid的内容写入到电子表格中
    For i = 0 To MyFlexGrid.Rows
        For j = 0 To MyFlexGrid.Cols
        xlssheet.Cells(i + 1, j + 1) = "'" & MyFlexGrid.TextMatrix(i, j)
    Next
    Next
    
    xlsapp.Visible = True  '显示电子表格
    
    Set xlsapp = Nothing       '交还控制给Excel
    

   方法二：

     当我们有很多窗体中都需要这个功能的时候，我们不能忘了模块的功能，不能重复的复制很多相同的代码，那样显得我们的代码没有技术含量，这样就需要我们在模块中编写一个函数——功能为导出Excel，这样我们需要的时候直接调用就可以了，下面我来接单介绍一下这个函数的代码的编写过程:

                    '导出Excel
    Public Sub toexcel(grid1 As MSHFlexGrid)
    Dim i, j As Integer
    Dim xl As Object
    Dim xlwbook As Object
    Dim xlsheet As Object
    
    Set xl = CreateObject("excel.application")
    Set xlbook = xl.Workbooks.Add
    xl.Visible = True
    Set exsheet = xlbook.Worksheets("sheet1")

    For i = 1 To grid1.Rows
        For j = 1 To grid1.Cols
            xlsheet.Cells(i, j) = grid1.TextMatrix(1 - 1, j - 1)

        Next j
    Next i

    End Sub

  当我们需要的时候直接 call (myflexgrid) 来实现，就不用大量的重复代码。通过这两种方法，相信读者们会很轻松的把这个功能搞定！