【机房收费系统】 导出为Excel

       以前在VB百例中接触过调用系统中的文件夹，这次是将数据导出到excel中，第一次接触的确有点陌生，不过了解后它并不是很难这是导出后的样子：

                                         

       机房收费系统中导出为Excel的代码设计，下面我说一下大体思路吧，希望能帮到大家。

1、工程--引用Microsoft Excel 类型库

2、定义excel对象：

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet

3、操作Excel表常用命令：

    Set xlApp = CreateObject("Excel.Application")     '创建excel对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\机房上机记录")    '打开已经存在的excel工作簿文件
    xlApp.Visible = True                     '设置excel对象可见
    Set xlsheet = xlBook.Worksheets("表名")    '设置活动工作表

    xlSheet.Cells(row,col)=值                    '给单元格（row,col）赋值

    xlSheet.PrintOut                                  '打印工作表

    xlApp.Quit                                            '结束Excel对象

    Set xlApp = Nothing                           '释放xlapp对象

     最基本的操作就是这些了，如果想进一步了解，欢迎访问http://blog.csdn.net/yiwangxiblog/article/details/46583599