Vba 应用程序。等待并激活SendKeys无法正常工作

我必须把钥匙送到记事本上

已经打开记事本的代码如下

 AppActivate "Blocco Note"
 Application.Wait Now + TimeValue("00:00:02")
 Call SendKeys("sdfse", True)
....
 Call SendKeys("sdfse", True)

我甚至试过用applicato.OnTime

Sub test1
    AppActivate "Blocco Note"
    Application.OnTime Now + TimeValue("00:00:02"), "test2"
End Sub

Sub test2()
    Call SendKeys("sdfse", True)
    ....
    Call SendKeys("sdfse", True)
end Sub

问题是，它等待2秒钟，然后才激活记事本，使第一个sendkeys无法工作

你能帮帮我吗

多谢各位

编辑：我正在做一些测试，我注意到只有当记事本没有最小化时，代码才会工作。

Application.Wait(Now + TimeValue("0:00:02")) 'make the application wait for 2 seconds.

可在MSDN网站上找到：

---

在MSDN站点找到：

为什么不直接写入.txt文件呢？向记事本发送按键似乎是一种过激的行为。这只是一个测试。。我需要了解application.ait无法正常工作的原因在

DoEvents

调用后立即执行

AppActivate

以让Excel处理消息pump.not working with DoEvents

Application.SendKeys("Keys")