在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
来自 Excel 2003 我必须说可以通过使用来检查剪贴板内容MSForms.DataObject
。您首先必须创建对 Microsoft Forms 2.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 Office 2003 SP 3 中)并可供进一步使用,即GetFromClipboard
不会破坏剪贴板缓冲区。这里要考虑的是剪贴板内容可以“作为文本”使用,因此任何图形都将以原始文本模式存储。还需要考虑缓冲区大小,因为 Excel 中的可变长度字符串最多可以容纳 ca。 2^31 个字符(但恕我直言,这应该足以满足 90% 的所有需求)。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)