机房收费系统之 导出excel

1 引用 excel 

工程--引用--Microsoft Excel 14.0 object Library

2创建 

    Set xlApp = CreateObject("Excel.Application")   '创建excel对象
            xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add '创建工作簿文件
    Set xlSheet = xlBook.Worksheets(1) '设置表1为活动工作表

3 把MSHFlecGrid里的数据导出至Excel

    Dim c As Integer
    Dim r As Integer
    
    For r = 0 To MSFlexGrid1.Rows - 1 '行循环
        For c = 0 To MSFlexGrid1.Cols - 1 '列循环
           MSFlexGrid1.Row = r
           MSFlexGrid1.Col = c
           xlSheet.Cells(r + 1, c + 1) = Trim(MSFlexGrid1.Text) '把MSHFlexGrid里的数据导出至Excel
        Next
    Next
    
  '释放
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

4 感想

      看了之后，你是不是也觉得很简单。本来我也想导出excel，这么强大的功能，应该也是超级麻烦的吧。后来不断的学习，才知道---竟然只是一个引用！

       所以，学完第一遍vb，要找两本书看看，看完数据库视频，要找两本书看看。不是让我们立马把书上的都学会，而是要知道都有哪些功能。哪怕我们不知道怎么实现，但至少我们知道去哪找，这样时间长了，自然就了解的多了，学的东西也就快了。

不怕不知道，就怕不知道！