如何用vba对剪贴板进行读写操作？

在编写VBA代码时，会碰到需要将变量的值拷贝进入剪贴板，或者从剪贴板读取已经拷贝的内容的情况。

这时候可以使用DataObject对象来实现对剪贴板的读写操作。

以下是一个通用的对剪贴板进行读写的vba代码：

Sub QQ1722187970()
    Dim sContent
    Dim oDataObject
    sContent = "测试文本"
    '对该对象进行后期绑定
    Set oDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    With oDataObject
        '给DataObject对象写入内容
        .SetText sContent
        '将DataObject对象的内容存入剪贴板
        .PutInClipboard
        '将剪贴板中的内容存入DataObject对象中
        .GetFromClipboard
        '获取剪贴板中的内容
        sCB = .GetText
        MsgBox sCB
    End With
End Sub