2016-03-19 47 views
0

我怎樣才能使這個工作只有一個SendKeys行?Vbs SendKeys到1行

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

我在SendKeys行發生錯誤。

+1

(A)的錯誤是因爲語法的SendKeys你使用的是錯誤。它需要一個參數,即要發送的字符串。 (B)你的循環將運行nto + 1次,這就是你想要的。 (C)您是否希望將號碼發送到其他應用程序或空間或兩者? (D)如果您在更大的腳本中描述了您想要做的事(這是一個片段),我們可能會建議比SendKeys更強大的方法 – MikeC

回答

0

因爲我不知道你的SendKeys的目標,我不能測試,但這樣的事情應該工作:

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