先菜单 插入--用户窗体。 然后,文件移除刚插入的用户窗体。 (作这两步的目的是为了,引用“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