SendKeys总是将选择放在代码窗口中。AppActivate不工作

Question

编辑：我是在VBA界面测试代码，并逐行测试。这似乎是问题所在，因为当我退出来，只运行宏的时候，就能正常运行。希望能帮到别人!

我想简单的复制一个选区，然后粘贴到记事本里。当我使用SendKeys函数时，它将我选择发送的任何内容放入代码窗口而不是记事本。我看了几个类似的问题，但似乎没有人遇到我这样的情况，至少，我还没有发现它。

Sub SendPaste()

Range("C5:C7").Copy

Call Shell("C:\Windows\system32\Notepad.Exe", vbNormalFocus)

SendKeys "^v"

End Sub

这就是发生的事情。

Sub SendPaste()

Range("C5:C7").Copy

调用Shell("C:\Windowssystem32\Notepad.Exe", vbNormalFocus)

SendKeys "^v"

LNAEnd子

其中LNA就是粘贴的内容。它确实打开了记事本文件，但仅此而已。

如果我使用AppActivate，它能瞬间激活记事本，然后我得到同样的结果。