使用此 SendKeys.SendWait（％{A}）



或者这个

use this SendKeys.SendWait("%{A}")

or this

Dim wsh, MyKey
wsh = CreateObject("Wscript.Shell")
wsh.SendKeys("%{A}")