Application.Wait和使用AppActivate不會的SendKeys

Question

我要的SendKeys到記事本

有個記事本中正常工作已經打開的代碼如下

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