Сбой подключения к внешним данным Excel для других пользователей
У меня есть файл tool.xlsx, который использует внешнее подключение данных к Access DB (оба находятся на сетевом диске и доступны пользователям с соответствующими правами доступа). У меня есть VBScript (код ниже), который обновляет все соединения в этой книге. Когда я запускаю этот скрипт, все работает как шарм, но когда коллега запускает его, он не выдает ошибок, но не все соединения обновляются. Есть идеи?
Dim XLApp
Dim XLWkb
Set XLApp = CreateObject("Excel.Application")
xlapp.visible = false
xlapp.workbooks.open "\\networkpath\tool.xlsx"
xlapp.displayalerts = false
set wr = xlapp.workbooks.Open("\\networkpath\tool.xlsx")
wr.refreshall
xlapp.visible = false
wr.Save
wr.Close
А вот строка подключения из этой книги tool.xlsx:
Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\networkpath\db.accdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";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
Вот другой подход к обновлению каждого соединения сразу:
on error resume next
Dim XLApp
Dim XLWkb
Set XLApp = CreateObject("Excel.Application")
xlapp.visible = false
xlapp.displayalerts = false
set wr = xlapp.workbooks.open("\\networkpath\tool.xlsx")
for each Cn in wr.Connections
Cn.Refresh
next
wr.refreshall
xlapp.visible = false
wr.Save
wr.Close