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
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
本文介绍了一个使用VBA代码来启动一个特定路径下的更新程序的实例,并演示了如何通过发送键盘指令来完成更新过程。

283

被折叠的 条评论
为什么被折叠?



