VBA中Sendkeys的用法

Sub test()
Shell "C:\ITACC\FISFrameworkSystem\FISFramworkLiveUpdate.exe"
firsttime = Timer
Do Until Timer - firsttime > 7
DoEvents
Loop
SendKeys "+{tab}" 
SendKeys "{tab}"
SendKeys "214"
SendKeys "{tab}"
SendKeys "214"
SendKeys "{enter}", True 
'ThisWorkbook.Close False
Application.Quit
End Sub

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭