可以用VBA-EXCEL控制office剪贴板吗

Question

我开发了一个项目，我需要保护某些用户操作（复制/剪切/粘贴）并保留剪切/复制历史记录 - Excel 剪贴板不足，在某些情况下，执行 vba 代码会清空以下内容剪贴板。在我看来，使用 OFFICE 剪贴板是合适的，特别是用替换 Excel 的 ctrl X 和 ctrl V 的代码来替换 CUT / PASTE 操作中的 Excel 剪贴板。为此，我想 - 1- 复制 OFFICE 剪贴板中的范围或对象，然后替换 CTRL x，删除 Excel 中的范围或对象，然后在随后的 CTRL V 中，从 OFFICE 剪贴板恢复第二项。我已经找了好几天了，但没有。可能可以使用 EXEL 脚本，但我不研究此功能。在花太多时间之前，我想知道你们中是否有人了解 Excel 脚本并告诉我这是否可行？

Answer 1

以下是一些有用的 Excel 剪贴板功能：

Sub copy(ByVal text As String)
    Dim objClipboard As Object
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objClipboard.SetText text
    objClipboard.PutInClipboard
    Set objClipboard = Nothing
End Sub

Function paste() As String
    Dim objClipboard As Object
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objClipboard.getFromClipboard
    paste = objClipboard.getText
    Set objClipboard = Nothing
End Function