VBA如何将已打开的记事本中的文本复制到Excel中，然后将记事本关闭

zflstar

我是想通过VBA发现系统打开了一个记事本之后，将里面的内容复制到Excel中，然后将该记事本关闭。


由于该记事本是另外一个程序自动打开的，我事先并不知道该文本的名称和路径，所以不可以用Open ...for...语句来操作。



请教高手，有没有好的办法实现我所说的功能呢。谢谢！

zflstar

还没有高手来帮我解答啊？

我自己用查找句柄，然后用sendkeys的方法来做，代码如下：

Private Sub CopyText() '复制TEXT文本
hwnd = FindWindow("notepad", vbNullString)
SetForegroundWindow hwnd
SendKeys "^a"
SendKeys "^c"
SendKeys "%{F4}{TAB}{ENTER}"
Cells(1, 1).Select
hwnd = FindWindow("XLMAIN", vbNullString)
SetForegroundWindow hwnd
SendKeys "^v"
End Sub
但是我觉得这样的方法很笨，很容易出错，各个窗口焦点不好把握，弄不好就把Excel自己关闭了。

我看了兰色幻想的VBA教学视频，都是使用Open...for...as...语句来做处理记事本相关的操作，那个就很漂亮。但是由于我事先无法知道文件路径和名称，有没有办法将对已经打开的记事本进行类似的操作呢？

感谢爱疯提升我的帖子，望高手们不吝赐教。谢谢！

zflstar

顶高点给大家看到