Excel外部数据连接崩溃在其他用户

我有一个tool.xlsx文件，使用外部数据连接到Access数据库（都在networking驱动器上，对用户有适当的访问权限）。 我有一个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工作簿的连接string：

 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