刚开始接触机房收费的时候，连上数据库，配置ODBC，登陆进去，那窗体叫一个多，不由地有种害怕的感觉，但是有人说，每天努力一点点，就会进步一点点，不会的就会少一点点，会的就会多一点点........

        在看似杂乱无章的各个窗体都相互独立，其实，他们之间有着千丝万缕的关系，剪不断，理还乱。在机房收费系统中，有多处用到导出Excel表格，就这个问题做一个简单的总结。

        第一种方法

         打开VB-工程-应用-勾选Microsoft  Excel 14.0 Objexts 2.6 Library

      编写代码如下:

Private Sub CmdExport_Click()Dim j As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")   '实例化对象xlAppxlApp.Visible = TrueSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)For i = 0 To myflexgrid.Rows - 1For j = 0 To myflexgrid.Cols - 1myflexgrid.Row = imyflexgrid.Col = jxlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)NextNext
End Sub

      第二种方法

       在根目录中提前建立好空的Excel表格，这个表格所存放的目录应当和你的VB工程同属于一个目录，然后就是核心部分了，编写代码：