Question

vba 执行另外程序

我有一个A程序的窗口已经打开，依次按F3键、Tab键、Ctrl+V键、回车键就能达到目的，现在我想用vba代码达到同样的效果，即执行vba代码后相当于依次：激活A程序窗口——按F3键——按Tab键——按Ctrl+V键——按回车键。望哪位高手指点。

Answer 1

例子代码：

Sub xxx()
    AppActivate "记事本"
    SendKeys "{F3}{Tab}^V{enter}"
End Sub

第一个语句激活窗口，你需要修改标题，第二个语句发送按键。

追问

第一句可以的，但是第二句没有反应啊，然后我用以下代码分开试试也没反应
SendKeys "{enter}"
SendKeys "{Tab}"
这是为什么

追答

我在记事本里面执行是成功的，你查查帮助看看特殊键的写法，或者你的程序是否对这些键盘的反映有特殊限制，可以试试看发送普通按键是否成功。

追问

我在记事本中执行也不行啊，我打开记事本，把光标放在第一行，再点别的窗口让别的窗口激活，执行第一句后，记事本窗口会顺利显示，但光标没有显示，而且我执行 SendKeys "{enter}"后，再点记事本标题栏激活后看光标也没变化，还是在第一行，这样还是不行啊，执行第一句后，怎么样能让光标出来，可能就行了

追答

你sendkeys "abc"看看abc显示在哪里了，可能是appactivate失败了。

有的窗口标题比较特殊，可以使用PID来精准定位，例如我下面的代码测试成功：

Sub x()
    AppActivate 1812, True
    SendKeys "{enter}", True
End Sub

1812是我机器记事本的PID（进程对话框查看）

追问

执行很不稳定，每执行一次应该会显示一行“abc”
Sub xx()
AppActivate 2348, True
SendKeys "a", True
SendKeys "b", True
SendKeys "c", True
SendKeys "{enter}", True
End Sub
执行效果：大多数显示：bc，少数为：abc，或：c
再次请求你的帮助，谢谢