在 Excel VBA 中保存/恢复剪贴板

Question

我有一个包含许多工作表的 Excel 工作簿。大多数工作表在 Worksheet_Activate() 子例程中都有一些代码。由于某种原因，此代码会导致剪贴板的内容丢失 - 非常烦人，因为电子表格用户无法在工作表之间复制和粘贴。

为了解决这个问题，我在 Worksheet_Activate 代码的开头添加了以下几行：

Dim dClipBoard As MsForms.DataObject
On Error Resume Next
Set dClipBoard = New MsForms.DataObject
dClipBoard.GetFromClipboard

以及在 Worksheet_Activate 代码退出之前的以下几行：

On Error Resume Next
dClipBoard.PutInClipboard

不幸的是，它不起作用。当我从一张纸移动到另一张纸时，我的剪贴板仍然丢失。

Answer 1

对于这种情况，我可以想象两种不同的解决方法。

1- 如果可能，更改工作表中的代码。无论在哪里使用 .copy 命令，都将其替换为如下代码：

range("Some Range") = range("Some other range")

2- 如果无法更改代码（使用您当前使用的方法）而不是将数据存储到 MsForms.DataObject 您可以将它们复制到一些辅助工作表，并在退出之前从工作表中检索数据工作表事件触发器。