最小化时无法激活 Excel window

Question

我的部分代码是：设置 objShell = CreateObject("WScript.Shell") objShell.AppActivate("Book1 - Excel") 现在我在桌面上打开了几个应用程序，当 Excel 落后于其他应用程序时，这部分使其 window 处于活动状态。但是如果我最小化 excel 并运行这部分，它不会恢复它。有什么想法吗？

Answer 1

试试这个。它对我来说很好用。

Set objShell = CreateObject("WScript.Shell")
objShell.AppActivate("Book1 - Excel") 
WScript.Sleep 500   'sleep is required here to make this work
objShell.SendKeys "% x" ' to maximize

Answer 2

完全放弃这种方法。 SendKeys 是一种非常、非常的自动化方式，根本不应该使用。如果您需要自动化 MS Office 应用程序，请使用相应的 COM 对象：

Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set wb = xl.Workbooks.Add

...

wb.Close
xl.Quit

最小化时无法激活 Excel window

Cannot make active Excel window when it is minimized

vbscript

excel