將Excel窗口返回到前景

Question

我從上到下搜索了互聯網，但我找不到解決方案。 在我的Excel工作簿中，我想從Outlook導入聯系人。 這很好，沒有任何問題。 我通過使用Outlook.ActiveWindow.Activate將GAL放到前台，並使用Outlook.Explorers.Item(1).WindowState = olMinimized來最小化Outlook。 我知道這不是一個非常干凈的解決方案，但除非沒有其他Outlook Windows打開，否則一切正常。

現在我的問題：
當用戶有多個打開的Outlook窗口（例如新的郵件對話框等）時，我無法將我的Excel應用程序帶回Foreground。 聯系人的導入仍然可以正常工作。 GAL通過單擊按鈕進入前景。
我嘗試了以下代碼片段，但它們並沒有真正起作用。

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

另一個嘗試是模塊中的此功能

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

在我的按鈕功能中調用它

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

我也嘗試使用此代碼段

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

什么都沒有幫助。 唯一發生的事情是任務欄中閃爍的Excel圖標。 我希望你能幫我解決這個問題。

Answer 1

假設此代碼在Excel工作簿中，它將只是：

   SetForegroundWindow Application.hWnd

而不是創建一個新的應用程序實例。