Wscript.sleep 1000年

Question

I持って、次のVBAコード：

実行時エラー424：オブジェクト必要が

私は WSCript.Sleepラインに次のエラーを取得

Set wshshell = CreateObject("WScript.Shell") 
wshshell.SendKeys "{F3}" 
WScript.Sleep 1000 

Answer 1

WScript.Sleepは、スクリプトホストコントロール内でのみ使用されます。 VBAはそれをサポートしていません。ただし、次の例を使用して遅延させることはできます。

#If VBA7 Then 
     Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
    #Else 
     Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
    #End If 
    Sub Test() 

     MsgBox "one" 
     Sleep 1000 
     MsgBox "Two" 
    End Sub