Question

excel vba 请教如何保证百分百激活切换到其他程序的窗口？

我知道用下面的代码都可以顺利切换到非最小化的word窗口，但是我发现当word窗口已经最小化时，就切换不过去了。请教高手能否解决这个问题？

Sub test()
AppActivate "Microsoft Word"
End Sub

Sub test2()
Set ws = CreateObject("wscript.shell")
ws.AppActivate "Microsoft Word"
End Sub

Answer 1

Sub test()
    AppActivate "Microsoft Word"
    SendKeys "% X"
End Sub

用SendKeys最大化就可以了，效果等于Alt--空格--X键

追问

我刚刚试了您给的代码，为什么一运行鼠标就动不了了，呈现系统假死的状态？

追答

SendKeys运行时，如果处于VBE窗口激活状态可能会发生不可预知的情况。这是微软帮助上的说明。
在工作表中插入按钮指定宏单击运行，或者Alt+F8运行test宏，可以激活Word并最大化。
另外，该代码未加入IF进行防错，如果未打开该Word程序，则代码无效。

追问

vbe窗口没有激活，word也肯定是打开状态，但就是无法运行，一test就假死，请问还有其他办法吗？谢谢！

追答

Sub test()
    On Error Resume Next
    Set objWD = GetObject(, "Word.Application")
    AppActivate objWD
    objWD.WindowState = 1
    Set objWD = Nothing
End Sub

经过本地测试，可以实现Word程序窗口最大化。

如有帮助，还请采纳！