Excel 正在向工作簿添加连接-过程调用或参数无效运行时错误5

我正在尝试从access数据导入

Tablecollection

。使用

connections.add2

方法尝试了一段时间，但是vba一直给我相同的错误消息

我的access数据库中的表如下：

ALFA

，

ERIC

，

GETI

，

HM

，

Instruments

，

YHOO

连接字符串是正确的。那么有什么不对呢

Error message: "Invalid procedure call or argument" Run time error 5

代码

---

您在

YHOO

之后缺少一个撇号。这能解决您的问题吗？

复制时漏掉了一行。现在是对的

Dim ConnString As String: ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\name\Desktop\DataBase.accdb;Mode=Share Deny Write;Extended Properties=;Jet OLEDB:System database=;Jet OLEDB:Registry Path=;Jet OLEDB:Database Password=;Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False"

Workbooks("YQL.xlsm").Connections.Add2 _
    "DataBase2", _
    "", _
    ConnString, _
    "'ALFA','ERIC','GETI','HM','Instruments','YHOO", _
    xlCmdTableCollection, _
    True, _
    True