VBA: 复制文本到剪贴板

2023-09-20 19:11:59 浏览数 (2)

文章背景: 得到文本之后,有时需要将内容复制到剪切板,在需要使用时再将其粘贴到合适的位置。

Office版本:Office 365

操作系统:Win10

可以通过以下的VBA代码进行任务的实现:

代码语言:javascript复制
Sub CopyToClipboard2()

    Dim MyData As Object
    
    Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    ' 要复制的字符串
    MyData.SetText "Hello, world!"
    
    ' 将文本复制到剪贴板
    MyData.PutInClipboard
    
    MsgBox "Done!" & vbNewLine & "可以使用Ctrl   V将内容复制到指定位置!"
    
End Sub

在这个示例中,我们使用了 CreateObject 来创建一个 Clipboard 对象,然后使用 SetText 方法将要复制的字符串设置为剪贴板的文本内容,最后使用 PutInClipboard 方法将内容放入剪贴板。

请注意,不同版本的 Office 可能对 Clipboard 对象的支持略有不同,所以在某些情况下,您可能需要根据您的 Office 版本进行适当的调整。但大多数情况下,上面的代码应该能够工作。

参考资料:

[1] Open AI解答

0 人点赞