如何修复用户表单文本框复制到剪贴板不再工作

Question

在过去的几个月里，我对这个脚本没有任何问题

Private Sub CommandButton3_Click()
With New MSForms.DataObject
.SetText TextBox2.Text
.PutInClipboard
End With
End Sub 

它的功能非常完美，可以毫无问题地复制换行符和文本。

今天，当使用相同的代码时，我的粘贴输出是：

��

但是，我可以手动选择用户表单中的文本，然后按crtl+c，我的粘贴输出完全是应该的。

在今天之前，我从未遇到过这个问题。我尝试过重新启动并清除工作表，但不起作用。我试着在整个潜艇上添加了一些打印输出，但我不确定我应该寻找什么，因为只有几行，一切看起来都很适合我。

我使用的是带有两个文本框的多页用户表单。我已经确认，引用错误文本框的代码没有问题，并且错误发生在两个点击即复制子中。

Answer 1

DataObject方法最近似乎不可靠。

如果你使用的是Windows，你可以使用Win API调用：

根据所选单元格范围运行数组公式，并将结果复制到剪贴板

此外，包括相关内容：在剪贴板中注入RTF代码，通过VBA宏作为RTF文本粘贴到MS Word中