Workbooks.open Rückkehr vor dem Fokus (Excel 2010 und 2016)

Question

Ich habe ein Makro, das eine neue Arbeitsmappe öffnet und dann aktivieren (Fokus) auf die erste Arbeitsmappe.

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

Ich habe diesen Code bekam in Excel 2007 arbeiten, aber ich habe ein Problem mit der geöffneten Arbeitsmappe in Excel 2010 und später festgestellt. Das Problem tritt auf, weil Workbooks.Open vor Excel zu VBA zurückkehrt Aktivieren Sie die neue Arbeitsmappe [funktioniert problemlos mit Debugger].

Ich kann einen workarround macht ein Application.Wait (Now + TimeValue("0:00:01")) verwenden, aber ......

EDIT: Mein Code, die Arbeit in 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

Ist das dosen't, was Sie wollen ? ()

Das wird die relevante Arbeitsmappe öffnen und es minimieren, wodurch Fokus auf Ihrer Hauptarbeitsmappe zurückgegeben wird.

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 

EDIT

nach dem aktuellen bearbeiten zu sehen.

MainWB.Activate 
Application.ScreenUpdating = actualScreenUpdate 

Sie aktivieren, wenn die ScreenUpdating = False? Setzen Sie es auf True und aktivieren Sie es dann :)