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

Sub快速与Access创建数据连接()'使用实例文件F_Data.accdbF_Tbl01DimmyCnc1AsStringDimmyCnc2AsStr... 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
展开
 我来答
BB石俊杰
2012-04-21 · TA获得超过1507个赞
知道大有可为答主
回答量:1395
采纳率:0%
帮助的人:1367万
展开全部
没加入数据库的引用,ALT+F11加入你的Microsoft Access 所用的引用就没问题了
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式