2 回答

TA貢獻1788條經驗 獲得超4個贊
sendkeys 有2個參數的,第2個參數為TRUE,則 Microsoft Excel 等待擊鍵處理完后再將控制返回到宏
那么寫成
Application.Quit
Application.SendKeys "{tab}",TRUE
Application.SendKeys "{enter}",TRUE
這樣應該行了,MSDN說,向對話框發送按鍵時,需要先調用SENDKEYS...,我在做試驗時,上寫的2種方法都可以正常退出..沒看出區別,可能是EXCEL版本不一樣。

TA貢獻1829條經驗 獲得超6個贊
用API吧
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
Dim i As Long
keybd_event &H12, 0, 0, 0
For i = 1 To 5
keybd_event &H9, 0, 0, 0
Sleep 1000
keybd_event &H9, 0, &H2, 0
Next
keybd_event &H12, 0, &H2, 0
End Sub
- 2 回答
- 0 關注
- 927 瀏覽
添加回答
舉報