excel vba 把内容放到剪贴板，以及把剪贴板的内容粘贴到表格中

excel vba 把内容放到剪贴板，以及把剪贴板的内容粘贴到表格中

如果你从其他地方复制了文字、图片等内容，比如从网页上。然后要粘贴到表格中。
只需要一句就好了：

ActiveSheet.Paste

如果要把表格中的内容放到剪贴板中去。
首先需要点“工具”“引用”，“浏览”，"C:\Windows\System32\FM20.DLL”，“确定“

之后会如下图所示，点确定

之后就可以把内容放到剪贴板了。代码如下：

Sub copypaste()
	strText = Cells(1, 1)
	Dim d As Object
	Set d = New DataObject
	d.SetText strText
	d.PutInClipboard
	ActiveSheet.Paste
	Set d = Nothing
End Sub