VBA Excel Sendkeys ARROWがcmd.exeで動作しない

Question

"{ENTER}"以外のキーを使用するときに問題が発生します。

"{UP}"、"{DOWN}"、"{LEFT}"と"{RIGHT}"は、なぜ、cmd.exeでは動作しないのですか？

Private Sub press_key(key As String) 
    SendKeys key, True 
    Application.Wait (Now + TimeValue("0:00:01")) 
End Sub 

Sub Test() 

Call Shell("C:\ ... \name.EXE", vbNormalFocus) 

Application.Wait (Now + TimeValue("0:00:01")) 
press_key ("{ENTER}") 
press_key ("{ENTER}") 
press_key ("{DOWN}") 
press_key ("{DOWN}") 
press_key ("{DOWN}") 
press_key ("{RIGHT}") 
press_key ("{DOWN}") 
press_key ("{DOWN}") 
press_key ("{DOWN}") 
press_key ("{ENTER}") 

End Sub 

Answer 1

あなたは、各SENDKEY間Wait 1秒にしようとしています。むしろwait INGよりも、のSendKeys間のアプリにフォーカスを与える：

Private Sub press_key(key As String) 
    SendKeys key, True 
    DoEvents 
End Sub 

これはVBAとアプリ間のインタフェースを改善します。