VBA 如何 *** 作剪贴板数据

用VBA可以实现你的要求，但要根据剪贴板的数据类型采用不同的方法。

如果剪贴板内容是纯文本，可建一个文本框，用Paste方法将剪贴板内容粘贴到文本框，修改后（有规律可用VBA代码修改）用Copy方法复制到剪贴板就达到你的目的。

如果剪贴板上是其他数据（如Word文档内容、图片等），可用Shell

函数调用相应的程序处理，修改时也可用SendKeys

语句由程序进行，最后用SendKeys

"^c”

语句将修改后的内容复制到剪贴板。

Sub 将txt文件内容复制到剪贴板()

Pn = "d:\wy.txt" 'txt文件名及路径

Shell "notepad.exe " & Pn, 1 '用记事本打开文件

'Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）

SendKeys "^a", True '全选文本

SendKeys "^c", True '复制到剪贴板

SendKeys "%{F4}", True '关闭txt文件

End Sub

---