Обнаружение сломанных связанных таблиц Excel - PullRequest
0 голосов
/ 27 апреля 2018

Я смотрю, как определить, есть ли у таблицы неработающая ссылка или нет, не прибегая к попытке использовать таблицу и вывести ошибку доступа к базе данных. Я повсеместно обнаружил, что каждый ресурс использует код, подобный следующему:

If Len(TableName.Connect) > 0 Then ...

или что-то подобное, но в моей базе данных, если у таблицы / файла была ранее работающая ссылка, она сохраняет последний известный хороший .connect, даже если ссылка не работает. Так что проверка .connect не работает. Я что-то пропустил? Или еще лучше, есть ли другое решение для проверки битых ссылок?

1 Ответ

0 голосов
/ 27 апреля 2018

В качестве первого вы можете проанализировать свойство Connect :

FileName = Split(CurrentDb.TableDefs("LinkedExcelRange").Connect, "=")(1)
' FileName -> d:\path\yourexcelfile.xlsx

и проверьте, существует ли он.

...