粘贴前检查剪贴板内容

Question

是否可以在将剪贴板粘贴到Excel VBA之前检查剪贴板的内容

我今天要说的是：

Sheets.Add After:=Sheets(Sheets.Count)   ' Create new sheet
ActiveSheet.Paste                        ' Paste from Clipboard
IsMultiLevel = (InStr(Range("A1"), "Multi-Level") > 0) ' Determine type of report
If Not IsMultiLevel Then
    MsgBox ("ERROR in Clipboard Data!!")
    End
Else
    ActiveSheet.Delete
End If

但是我想在添加新的工作表之前检查数据，这样我就不需要删除它了。我想要这样的东西

IsMultiLevel = (InStr([CLIPBOARD], "Multi-Level") > 0) ' Determine type of report
If Not IsMultiLevel Then
    MsgBox ("ERROR in Clipboard Data!!")
    End
End If
Sheets.Add After:=Sheets(Sheets.Count)   ' Create new sheet
ActiveSheet.Paste                        ' Paste from Clipboard

Answer 1

来自Excel2003，我必须说通过使用MSForms.DataObject来检查剪贴板内容是可能的。首先必须创建一个对Microsoft forms2.0对象库(通常位于...\system32\FM20.DLL)的引用(VBA窗口工具/引用)。

然后，您可以将剪贴板读入文本变量：

Dim BufObj As MSForms.DataObject, BufTxt as String

Set BufObj = New MSForms.DataObject
BufObj.GetFromClipboard
BufTxt = Buf.GetText

缓冲区文本将保持不变(至少在Win XP/SP3，MS Office2003SP3中)，并可供进一步使用，即GetFromClipboard不会破坏剪贴板缓冲区。这里要考虑的是，剪贴板内容可以“作为文本”使用，因此任何图形都将以原始文本模式存储。此外，还需要考虑缓冲区大小，因为Excel中的可变长度字符串最多只能容纳大约2^31个字符(但我认为这应该足以满足90%的需要)。

Answer 2

非常感谢大家……你太棒了！我只是想和你分享我的解决方案。

Function GetClipboardText(nChars As Integer) As String
    Dim BufObj As MSForms.DataObject
    Set BufObj = New MSForms.DataObject
    BufObj.GetFromClipboard
    GetClipboardText = Left(BufObj.GetText, nChars) ' Get only first nChars
End Function

Sub CreateOverviewSheet()
' Determine type of report in Clipboard
    IsMultiLevel = (InStr(GetClipboardText(100), "Multi-Level") > 0)
    IsConsolidated = (InStr(GetClipboardText(100), "Consolidated") > 0)
    If Not IsMultiLevel Or IsConsolidated Then
        MsgBox ("ERROR in Clipboard Data!!")
        End
    End If
    Sheets.Add After:=Sheets(Sheets.Count)   ' Create new sheet
    ActiveSheet.Paste                        ' Paste from Clipboard
    .
    .  and so on...
    .
End Sub

Answer 3

请理解，没有办法查看剪贴板内容(除了检查可用格式的列表)而不干扰其他应用程序。如果在剪贴板上放置数据的应用程序使用延迟呈现，您将触发一个无法撤消的事件(该应用程序将被强制生成数据，并期望用户已粘贴数据)。这也会对跨网络连接的剪贴板同步产生影响，例如使用远程桌面。我的任何用户(ClipMate)都会对你感到非常恼火，并且可能会把你添加到破坏性预览剪贴板数据的应用程序的“耻辱墙”中：http://www.thornsoft.com/faq/index.php?action=artikel&cat=9&id=79