VBA陈旧的代码：Access 2 Excel (VBA+ADO)

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim TmpStr As String
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset

Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/test.mdb"
Cnn.Open
TmpStr = "select * From 表1"
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open TmpStr, Cnn, adOpenKeyset, adLockOptimistic

If Not (Rs.BOF And Rs.EOF) Then
Rs.MoveFirst
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
xlApp.Workbooks.Add
Set xlBook = xlApp.Workbooks(1)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
xlSheet.Cells(1, 1)= Rs("表的字段名1")  '把表1的第一个记录的字段名1的值写到Excel中的"A1"
...
...
xlApp.ActiveWorkbook.SaveAs "C:/excel.xls"  Excel保存在C:/
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
end if
Rs.Close
Set Rs = Nothing
Set Cnn= Nothing