Відобразити файл excel при запуску макросу з перспективи vba - excel, vba, excel-vba

Я пишу макрос в Outlook, щоб встановити значення для комірки у файлі Excel, який відкривається.

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

Моя проблема полягає в тому, коли я запускаю цей макросдля клітинки нормально, але я все ще стою в застосуванні Outlook, як можна, коли я запускаю макрос в outlook, він встановлює значення для клітинки і відображає цей файл excel замість того, щоб все ще стояти в перспективі

Відповіді:

Для цього потрібно мінімізувати вікно програми, а потім максимізувати його.

objExcel.WindowState = xlMinimized
objExcel.WindowState = xlMaximized