我正在使用我的VBA代码中启动的.bat文件进行交互。 shell是开放的,我设法发送一些命令,但其他一些命令失败,如F9,DOWN和UP。
这是我的一大堆代码:
Sub OpenBrice()
Path = "F:\Brice\valpp"
ChDir Path
Shell Path & "\Brice.bat", vbNormalFocus
'Wait during opening BRICE
Wait (2)
'PASS
SendKeys "123"
Wait (1)
'Press Enter:
SendKeys "~"
Wait (1)
'Update current date
SendKeys "O"
Wait (1)
SendKeys "F"
Wait (1)
SendKeys (Format(Now(), "ddmmyy"))
Wait (1)
SendKeys "{ESC}"
Wait (2)
SendKeys "{F9}"
问题发生在最后一行,{F9}不起作用,{DOWN}或{UP}也是如此。
在代码中,行SendKeys "{F8}"
完美地工作......
我怀疑shell的配置不好或类似的东西?非常感谢!
P.S:我只是在测试一些代码,我知道我应该声明我的所有变量并使用Option Explicit