最小化时无法激活Excel窗口

我的代码的一部分是：Set objShell = CreateObject（“WScript.Shell”）objShell.AppActivate（“Book1 – Excel”）现在我已经打开桌面上的应用程序，当Excel是在其他人之后，这部分使其窗口活动。 但是，如果我最小化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