这是一个比较有意思的程序:模拟用户输入,貌似可以用在RPA (Robotic Process Automation)项目中。
代码:
Sub SimulatedInput()
Dim rv As Double
Dim DataObj As New MSForms.DataObject
rv = Shell("NOTEPAD.EXE", vbNormalFocus) '打开记事本
AppActivate rv '激活应用程序
Application.SendKeys "~", True '换行键
DataObj.SetText "本文为VBA代码模拟输入" '中文输入无法直接使用SendKeys语句,借助DataObj进行输入
DataObj.PutInClipboard
Application.SendKeys "^v", True
Application.SendKeys "~", True
Application.SendKeys "Excel VBA is AMAZING!", True
End Sub
效果: