VBA-在其他程序中检测粘贴操作

Sub DetectPasteOperation()
    Dim clipboardData As DataObject
    
    ' 检查剪贴板中是否有数据
    If ClipboardFormatsAvailable() Then
        ' 获取剪贴板数据
        Set clipboardData = New DataObject
        clipboardData.GetFromClipboard
        
        ' 检测是否为粘贴操作
        If clipboardData.GetFormat(vbCFText) Then
            ' 执行相应的操作或处理
            MsgBox "检测到粘贴操作！"
            ' 其他操作代码...
        End If
    End If
End Sub

Function ClipboardFormatsAvailable() As Boolean
    Dim clipboardData As DataObject
    
    On Error Resume Next
    Set clipboardData = New DataObject
    clipboardData.GetFromClipboard
    ClipboardFormatsAvailable = (Err.Number = 0)
    On Error GoTo 0
End Function