Question

我必须将密钥发送到记事本

已经打开记事本的代码是以下

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

我甚至尝试过Applicatio.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不起作用

你能请求帮帮我吗？

非常感谢

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

Answer 1

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

在MSDN网站上找到：https://msdn.microsoft.com/en-us/library/office/ff822851.aspx

Application.SendKeys("Keys")

在MSDN网站上找到：https://msdn.microsoft.com/en-us/library/office/ff821075.aspx

Application.Wait和AppActivate与SendKeys无法正常工作

1 个答案: