自动化Internet Explorer后如何将Excel窗口置于前台？

Question

我以前曾问过类似的问题，但是从来没有一个明确的解决方案。 我试图在不关闭Internet Explorer的情况下使Excel窗口成为前台焦点，并且它在“调试”模式下工作得很好，但是在实际运行时却不能。 我已经尝试过AppActivate "Excel"但这只是使屏幕底部的Excel图标闪烁。 然后我发现了这个，但我无法正常工作

Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

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



Sub qstn()

Dim IE As New InternetExplorer: IE.navigate "www.cnn.com": IE.Visible = True: apiShowWindow IE.hWnd, SW_MAXIMIZE
LoadIt IE

SetForegroundWindow Application.hWnd

End Sub

Sub LoadIt(ByVal IE As InternetExplorer, Optional ByVal loadmins As Integer = 5)


Do
    DoEvents

Loop Until IE.ReadyState = READYSTATE_COMPLETE And IE.Busy = False

End Sub

Answer 1

尝试这个

sub test()
    AppActivate "Microsoft Excel"
End Sub