动态创建EXCEL文件的方法,从http://support.microsoft.com/kb/306022 找的。
Public Function OutputToExcel_ADODB(ByVal mdbFile As String, ByVal sTable As String, ByVal xlsFile As String) As Boolean
Dim conn As New ADODB.Connection()
Dim rs As ADODB.Recordset
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile & ";")
conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs = conn.Execute(sTable, , ADODB.CommandTypeEnum.adCmdTable)
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)
Dim n As Int32
For n = 1 To rs.Fields.Count
oSheet.Cells(1, n).Value = rs.Fields(n - 1).Name
Next
oSheet.Range("A2").CopyFromRecordset(rs)
oBook.SaveAs(xlsFile)
oSheet = Nothing
oBook = Nothing
oExcel.Quit()
oExcel = Nothing
GC.Collect()
rs.Close()
conn.Close()
Return True
End Function