如何在VBA中完成Application.run时关闭工作簿？

Question

Sub openWorkBook()
Workbooks.Open Filename:="C:\Users\Desktop\data\" & Cells(2, 1).Value
Application.Run "RefreshAllWorkbooks"
End Sub

我的代码如上所示。我打开另一个工作簿并使用Application.Run“RefreshAllWorkbooks”刷新Excel工作簿中的所有公式。完成公式计算大约需要3分钟（实际上它从彭博社获取数据）。我希望在完成所有数据刷新后关闭工作簿。如何改进上面的VBA代码？

Answer 1

您可以向RefreshAllWorkbooks添加一个可选参数，说blnCloseOnComplete默认false，然后在函数if blnCloseOnComplete then thisworkbook.close {true/false}的末尾添加，然后调用application.run RefreshAllWorkbooks(true)