咨询一下关于VBA sendkeys使用问题，有了解的进来看看~

Question

VBA执行Sendkeys"%{TAB}"切换两个excel没反应，寻解决办法执行一下再回答excel与SAP窗口，其实与切换内容关系不大，只要能用sendkey任何窗口都可以

Answer 1

sendkeys 有2个参数的,第2个参数为TRUE,则 Microsoft Excel 等待击键处理完后再将控制返回到宏
那么写成
Application.Quit
Application.SendKeys "{tab}",TRUE
Application.SendKeys "{enter}",TRUE
这样应该行了,MSDN说,向对话框发送按键时,需要先调用SENDKEYS...,我在做试验时,上写的2种方法都可以正常退出..没看出区别,可能是EXCEL版本不一样。

Answer 2

用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