用VBA实现当前屏幕全选复制到剪贴板，然后粘贴到文本文件AAA.TXT。

Question

指的是浏览器屏幕而不是excel界面屏幕

Answer 1

先激活你的窗口，然后复制
SendKeys "^A"
SendKeys "^C"

激活记事本（必须先打开AAA.txt），并粘贴
AppActivate “AAA.txt - 记事本”
SendKeys "^V"

Answer 2

文件AAA.TXT不接受图片噢。

追问

没有图片的，主要目的是取得页面数据，但页面代码是经过防下载处理了的，所以只好在屏幕上直接复制文本，该过程手动通过，但求VBA代码完成。有一种粘贴到当前工作表的代码我已经有了，现在要求粘贴到文本文件。问题是假设页面已经打开，怎样由EXCEL转到已经打开的页面并且能够操作之，操作完后还要返回EXCEL继续其他的工作。

追答

贴到当前工作表后再写入文本文件就好了。可以的话，传excel文件到我的名称的一六三邮箱。

追问

这个问题很明确，没有文件的，就是转到已打开网页复制、建立文本文件粘贴、返回。搞不了我再想别的办法。

追答

有一种粘贴到当前工作表的代码我已经有了——我要的是这个文件，然后加改成写文本文件。

追问

说白了，在当前工作表操作不能静默操作，当你粘贴到非活动工作表时该表自动激活，如果用不其自动激活的代码则提示单元格形状大小不一致对话框，呵呵。如果能够将剪贴板的内容按行转到一个数组也行。