Application.CutCopyMode = False

这行代码将清除任何剪贴板内容。你可以将这行代码放在你的 VBA 程序中,在你完成复制和粘贴操作之后调用它来清空剪贴板。

如果你想要更彻底地关闭 Excel 剪贴簿,可以使用以下代码:

Dim objClipboard As Object
Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objClipboard.Clear

这个代码片段使用了 Windows API 来创建一个剪贴板对象并将其清空。但是需要注意的是,这种方法需要你的 VBA 代码具有足够的权限才能操作剪贴板,因此在某些环境下可能无法正常工作。

  • jie_ming514 Excel
  •