Вернуть Excel окно на передний план

Я искал Интернет сверху до корня, но я не мог найти решение. В моей книге Excel я хочу импортировать Контакты из Outlook. Это отлично работает без проблем. Я получаю GAL на переднем плане, используя Outlook.ActiveWindow.Activate и я минимизирую Outlook, используя Outlook.Explorers.Item(1).WindowState = olMinimized . Я знаю, что это не очень чистое решение, но все работает нормально, если нет открытых окон Outlook.

Теперь к моей проблеме:
Когда у пользователя более одного открытого окна Outlook (например, нового почтового диалога и т. Д.), Я не могу вернуть приложение Excel к Foreground. Импорт контактов по-прежнему работает нормально. GAL подходит к Foreground, нажав кнопку.
Я пробовал следующие фрагменты кода, но они действительно не работают.

  Dim AppTitle As String AppTitle = Application.Caption ' 'some code ' AppActivate AppTitle 

Еще одной попыткой была эта функция в модуле

• Excel VBA для подсчета электронных писем в общих почтовых ящиках каждые 15 минут
• Outlook для получения количества писем, полученных в определенные дни
• Структура почтового ящика Outlook в HTML-структурировании в VBA-кодировании
• Count Followup Emails с помощью Excel VBA
• VBA выберите учетную запись, с которой загружаются письма

  Public Declare Function SetForegroundWindow Lib "user32" _ (ByVal hWnd As Long) As Long 

вызов его в моей функции Button

  Dim AppXL As Object Set AppXL = CreateObject("Excel.Application") ' 'some code ' SetForegroundWindow AppXL.hWnd 

Я также попытался использовать этот фрагмент кода

  Excel.Application.Visible = True Excel.Application.ActiveWindow.Activate 

Ничего не помогло. Единственное, что произошло, это мигать значок Excel на панели задач. Надеюсь, ты сможешь помочь мне в этом.

  SetForegroundWindow Application.hWnd