Question

关于EXCEL VBA 用ADO连接ACCESS数据库的问题，重谢！

Sub 快速与Access创建数据连接()
'使用实例文件 F_Data.accdb F_Tbl01
Dim myCnc1 As String
Dim myCnc2 As String
Dim myCnc3 As String
Dim myCmd As String
Dim myFileName As String
Dim myTblName As String
Worksheets.Add
myFileName = "F_Data.accdb" '读入文档
myTblName = "F_Tbl01" '读入表
myCnc1 = "ODBC;"
myCnc2 = "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"

myCnc3 = "Driver={Microsoft Access Driver (*.accdb)};"
'使用SQL来读入资料
myCmd = "SELECT * FROM " & myTblName
With ActiveSheet.QueryTables.Add _
(Connection:=myCnc1 & myCnc2 & myCnc3, Destination:=Range("A1"))
.CommandText = myCmd
.Refresh BackgroundQuery:=False
End With
End Sub

这段代码哪里里有错误？我运行后提示有错误我是10版本的EXCEL

Answer 1

没加入数据库的引用，ALT+F11加入你的Microsoft Access 所用的引用就没问题了