Vbsを1行に送信

Question

これを1つのSendKeys行だけで動作させるにはどうすればよいですか？

If IsNumeric(nTo) Then 
    wscript.sleep 1000 
    Do Until nTo = -1 
    a.SendKeys (number, " ") 
    number = number + 1 
    nTo = nTo - 1 
    Loop 
End If 

SendKeys行でエラーが発生します。

Answer 1

私はあなたのSendKeysのターゲットを知らないので、私はそれをテストすることはできませんが、このようなものが動作するはずです：

s = "" 
Do Until nTo = -1 
    s = s & number & " " 
    number = number + 1 
    nTo = nTo - 1 
Loop 
a.SendKeys s