Вернуть 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 

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

  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 на панели задач. Надеюсь, ты сможешь помочь мне в этом.

Предполагая, что этот код находится в вашей книге Excel, это будет просто:

  SetForegroundWindow Application.hWnd 

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

  • Код VBA для копирования и вставки диапазона Excel в Outlook
  • Развернуть в офисном магазине только настольный плагин
  • Программировать вход / выход Office 2016
  • Электронная почта Body Outlook не копирует Excel
  • Вставить конкретный диапазон excel в обзорную встречу
  • Попытка извлечь вложения Outlook из сохраненных файлов .msg с помощью VBA
  • Не удается открыть файлы .msg
  • Сценарий PowerShell для извлечения файла .xls из определенной папки Outlook
  • Извлечь текстовую строку из неуправляемого тела электронной почты
  • У кого-нибудь есть обходное решение для ошибки с сохранением и отправкой с добавлением перспективы?
  • VBA Outlook Mailitem - не отображает все элементы
  • Давайте будем гением компьютера.