Workbooks.open 焦点前返回（Excel 2010 和 2016）

Question

我有一个宏可以打开一个新的工作簿，然后激活（聚焦）到第一个工作簿。

Code:
Set mainWorkbook = ActiveWorkbook
Set bdWorkbook = Workbooks.Open(FileName:="Another.xlsm", ReadOnly:=True)
mainWorkbook.Activate

我在 Excel 2007 中可以使用此代码，但在 Excel 2010 及更高版本中打开工作簿时遇到了问题。出现问题是因为 Workbooks.Open 在 Excel 激活新工作簿之前返回 VBA [使用调试器工作正常]。

我可以使用Application.Wait (Now + TimeValue("0:00:01")) 来解决问题，但是......

编辑：我的代码在 Excel 2016 中不起作用

Sub Sample()
    Dim path As String

    path = "A_PATH_FROM_MY_SERVER"

    actualScreenUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False

    Set MainWB = ActiveWorkbook
    Workbooks.Open fileName:=path, UpdateLinks:=False, ReadOnly:=isReadOnly
    Set bdWB = ActiveWorkbook
    DoEvents

    MainWB.Activate
    Application.ScreenUpdating = actualScreenUpdate

    With Sheets(MY_BD_SHEET)
        bdWB.ActiveSheet.UsedRange.Copy .[A1]
        '....
    End With
End Sub

Answer 1

这是你想要的吗？ （久经考验）

这将打开相关工作簿并将其最小化，从而将焦点返回到您的主工作簿。

Sub Sample()
    Dim wbThis As Workbook, wbThat As Workbook

    Set wbThis = ThisWorkbook
    Set wbThat = Workbooks.Open("C:\Users\Siddharth\Desktop\Sample.xlsx")

    DoEvents

    Application.WindowState = xlMinimized

    ' OR

    ActiveWindow.WindowState = xlMinimized
End Sub

编辑

查看您当前的编辑后。

MainWB.Activate
Application.ScreenUpdating = actualScreenUpdate

ScreenUpdating = False?将其设置为True，然后激活它:)