我有一个脚本,可以在计时器循环中打开工作簿。被打开的工作簿定期由网络上其他地方的另一台计算机保存。有时,在尝试保存工作簿的确切时间打开工作簿时会发生冲突,然后抛出400错误。
有什么想法吗?
Sub LoopDash()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set w2 = Workbooks
src = "S:\Dashboard.xlsm"
Set wb1 = w2.Open(FileName:=src, UpdateLinks:=False, ReadOnly:=True)
alertTime = Now + TimeValue("00:01:15")
Application.OnTime alertTime, "ThisWorkbook.LoopDash"
End Sub