vba读写剪贴板

在编写 VBA 代码时，有时需要将变量的值拷贝到剪贴板，或者从剪贴板读取已拷贝的内容。

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

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

Sub GetDataFromClipboard()
    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