把ACCESS的内容导入EXCEL，用宏的方法来做。

我录了一个，你参考一下把。
作用是从E:\FIELS\通讯录.mdb 文件的表“通讯录”中提取 “姓名”和“个人电话1”字段到当前工作表中。

Sub 宏1()
'
' 宏1 Macro
' nothing 记录的宏 2004-3-4
'

'
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=E:\FIELS\通讯录.mdb;DefaultDir=E:\FIELS;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;", Destination:=Range("A1"))
.CommandText = Array("SELECT 通讯录.姓名, 通讯录.个人电话1" & Chr(13) & "" & Chr(10) & "FROM E:\FIELS\通讯录.通讯录 通讯录")
.Name = "查询来自 MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub