机房收费系统之 导出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，要找两本书看看，看完数据库视频，要找两本书看看。不是让我们立马把书上的都学会，而是要知道都有哪些功能。哪怕我们不知道怎么实现，但至少我们知道去哪找，这样时间长了，自然就了解的多了，学的东西也就快了。

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