excel - 刷新只写excel

Question

我正在尝试刷新 Excel 工作簿。有两张表需要刷新，因为它们已连接到我们的数据库。工作簿保存为只写。我可以打开工作簿，但我无法获得要写入的密码，这是正确的密码。这是我到目前为止的代码。

Set data = CreateObject("Excel.Application")
data.Visible = True
Set wb = data.Workbooks.Open("C:\Users\tdumas\Desktop\Rental Aerial Agreement    
(TEMPLATE).xlsx", WriteResPassword="lift123456")_
ReadOnlyRecommended=False
IgnoreReadOnlyRecommended=True
data.ActiveWorkbook.RefreshAll
WScript.Sleep(SecondsToWait * 5000)
data.ActiveWorkbook.Save
wb.Close
data.Application.Quit