VBA Excel：捕获并复用剪贴板内容的实现问题

一、编译错误的原因 #

你遇到的“用户定义类型未定义”错误，是因为VBA工程没有引用Microsoft Forms 2.0 Object Library，导致无法识别MSForms.DataObject这个类型。

二、两种解决方法 #

方法1：添加引用（早期绑定） #

• 打开VBA编辑器（按Alt+F11）
• 点击菜单栏【工具】→【引用】
• 在弹出的对话框里找到并勾选Microsoft Forms 2.0 Object Library，点击确定
• 之后就能正常使用MSForms.DataObject类型了

方法2：后期绑定（无需手动添加引用） #

如果不想每次都设置引用，改用后期绑定声明对象，代码可直接在任意电脑上运行：

Dim Clipboard As Object
Set Clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

三、完整的变更事件示例代码 #

以下是在Worksheet_Change事件中完整实现“保存剪贴板→执行宏逻辑→恢复剪贴板”的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim originalClipText As String
    Dim clipObj As Object
    
    ' 保存当前剪贴板的文本内容
    Set clipObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    On Error Resume Next ' 处理剪贴板无文本内容的情况
    clipObj.GetFromClipboard
    originalClipText = clipObj.GetText
    On Error GoTo 0
    
    ' ------------------------------
    ' 这里写你的变更事件核心逻辑
    ' 示例：修改目标单元格的字体颜色
    Application.EnableEvents = False ' 防止循环触发变更事件
    Target.Font.Color = RGB(255, 0, 0)
    Application.EnableEvents = True
    ' ------------------------------
    
    ' 恢复剪贴板内容
    If originalClipText <> "" Then
        clipObj.SetText originalClipText
        clipObj.PutInClipboard
    End If
    
    Set clipObj = Nothing
End Sub

注意事项 #

• 上述代码仅处理剪贴板中的文本内容，若需处理图片等非文本内容，需额外编写对应逻辑
• 用On Error Resume Next是为了避免剪贴板为空或非文本时触发报错
• 变更事件中务必用Application.EnableEvents包裹核心逻辑，防止代码循环触发自身

内容的提问来源于stack exchange，提问作者Gary Nolan