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

在Access中，新建一个窗体。在一个按钮下运行下面的代码：连接的是C:/test.mdb有一个表1

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