После получения предложения от этой публикации
Я пытаюсь обновить ссылку новым путем к файлу Excel в Ms-доступе во время выполнения.
Я попробовал следующее
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: у меня естьнесколько таблиц, но я хочу, чтобы только эта таблица изменяла свой путь во время выполнения.
Решение:
возникла проблема с пробелами в строке новая и последняя строка, которая работает
1032 *