excel - AppActivate 不发送密钥或真正激活

Question

我有一个 Appactivate VBA 脚本来打开一个程序，然后发送密钥来登录。多年来，它完美无缺，自从程序更新后，它似乎不再起作用了。问题是 appactivate 实际上拉起窗口，但它不发送任何键。在我用鼠标实际单击窗口之前，密码部分不会显示闪烁的光标。他们是另一种激活窗口/程序的方法吗？代码如下。

Sub LOGIN()

Shell ("C:\ASD\ASDF.exe")

 Dim PASS As String


 PASS = Range("D11")

    AppActivate ("ASDF")
    'THIS IS WHERE IT STOPS. THE WINDOW POPS UP. THE CODE DOES NOT ERROR ITS JUST DOESN'T SEND ANY KEYS AFTER THIS BECAUSE I THINK THE WINDOW IS TRULY NOT ACTIVE.
    Application.SendKeys "+{TAB 4}"
    Application.SendKeys "FACILITY NAME"
    Application.Wait (Now + TimeSerial(0, 0, 1))
    Application.SendKeys "{TAB 4}"
    Application.SendKeys PASS
    Application.SendKeys vbCrLf

End Sub

标签： excelvbasendkeys