Outlook vbaからマクロを実行するとExcelファイルが表示されます

Question

オープンしているExcelファイルのセルの値を設定するためにOutlookにマクロを書きます。

Sub test() 
    Dim objExcel As Object, WB As Object, WS As Object 
    Set objExcel = GetObject(, "Excel.Application") 
    objExcel.Visible = True 
    Set WB = objExcel.Workbooks("Book1.xlsm") 
    WB.Activate 
    Set WS = WB.Worksheets("Sheet1") 
    AppActivate "Microsoft Outlook" 
    WS.Range("A1").Value = "hoho" 
End Sub 

私の問題は、私はそれがOKのセルの値を設定し、私はまだ見通しアプリケーションに立って、このマクロを実行すると、どのように私は見通しでマクロを実行することができるとき、それは、セルに値を設定し、このエクセルファイルを表示する代わりに、まだ見通しに立っています

Answer 1

これを行う方法は、アプリケーションウィンドウを最小化して最大化することです。

objExcel.WindowState = xlMinimized 
objExcel.WindowState = xlMaximized