Question

从此Post获得建议之后

我正在尝试在运行时使用Ms访问中的Excel文件的新路径来刷新链接。

我尝试了以下

Dim td As DAO.TableDef
Dim db As DAO.Database
Set db = CurrentDb()
Set td = db.TableDefs('Ersatz')   
td.Connect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\xxxx\AppData\LocalErsatzliste\SAP.xlsx;Extended Properties = Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES"
td.RefreshLink

在行td.RefreshLink上，我收到运行时错误3170找不到可安装的ISAM 。

我尝试了其他字符串，例如

td.connect = "C:\Users\xxxx\AppData\LocalErsatzliste\SAP.xlsx"

也是这个

td.connect = "Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE= C:\Users\xxxx\AppData\LocalErsatzliste\SAP.xlsx"

通过使用上面的行，我得到运行时错误3044

PS：我有多个表，但是我只希望该表在运行时更改其路径。

解决方案：

字符串中存在间距问题，新的和最终的字符串有效

Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=C:\Users\xxx\AppData\Local\Ersatzliste\SAP.xlsx

在运行时在Ms访问中刷新链接的Excel文件路径

0 个答案: