Excel宏操作剪贴板

先菜单  插入－－用户窗体。

然后，文件移除刚插入的用户窗体。

（作这两步的目的是为了，引用“Microsoft Forms 2.0 Object Library”。）

准备工作完了，代码如下：

Sub Test() Dim MyData As DataObject Set MyData = New DataObject MyData.GetFromClipboard MyData.SetText "123", 1 '将文本放入剪贴板 MyData.PutInClipboard '将内容置于windows剪贴板中 Cells(1, 1) = MyData.GetText(1) '将文本取出 End Sub