长期读者，第一次提问者，
我有一个主文件，当我点击一个按钮将打开11个文件一个接一个刷新连接和关闭文件。然而，它没有刷新连接之前，它关闭文件。

Sub Task()

Workbooks.Open Filename:= "......sharepoint.com/sites/dummylocation/dummyfile.xlsx"

Dim WB As Workbook

Set WB = Application.Workbooks("dummy file.xlsx")
Dim ObjConnection As Variant
Dim bBackground As Variant

For Each ObjConnection In WB.Connections
'Get current background-refresh value
bBackground = ObjConnection.OLEDBConnection.BackgroundQuery
'Temporarily disable background-refresh
ObjConnection.OLEDBConnection.BackgroundQuery = False
'Refresh this connection
ObjConnection.Refresh
'Set background-refresh value back to original value
ObjConnection.OLEDBConnection.BackgroundQuery = bBackground
Next
WB.Close
End Sub

我已经能够通过注解“wb.cose”来找到它的错误，然后刷新就会工作。我想我需要某种延迟或其他什么？