使窗口在后台打开

我有3个input框，当select一个文档时，它打开文档并填写一个select框。 在Excel 2013这些窗口在文档前面打开，并且必须最小化才能select下一个窗口。 有没有办法让它自动在后台打开文件？

 Workbooks.Open (file_path) If Application.Version >= 15# Then ActiveWindow.WindowState = xlMinimized End If 

这是我目前所拥有的，但是我宁愿把它放在第一个背景中，而不是将它最小化。 我试图closures屏幕更新的部分，但是没有工作。

 Application.ScreenUpdating = False Workbooks.Open (file_path) Application.ScreenUpdating = True 

Application.ScreenUpdating是否影响Excel 2013 WorkBooks.open ？

Answer 1

Application.ScreenUpdating不适用于Excel 2013。

您可以尝试创buildfunction：

 Sub myScreenUpdate(screenUpdateRequest As Boolean, previousScreenUpdate As Boolean) If screenUpdateRequest Then Application.ScreenUpdating = previousScreenUpdate Else previousScreenUpdate = Application.ScreenUpdating Application.ScreenUpdating = False End If End Sub 

来电请求：

1. 调用myScreenUpdate（False，previousScreenUpdate）

2. 调用myScreenUpdate（True，previousScreenUpdate）

    Dim previousScreenUpdate as boolean Call myScreenUpdate(False, previousScreenUpdate) 'to get the current setting into previousScreenUpdate Call myScreenUpdate(True, false) 'to set updating to false 'do your heavy code here and when finished: Call myScreenUpdate(True, previousScreenUpdate)