如何修复用户窗体文本框复制到剪贴板不再有效

Question

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

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

它运行完美，复制换行符和文本没有问题。

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

��

但是，我可以手动 select 用户表单中的文本，然后按 crtl+c，我的粘贴输出就完全正确了。

今天之前我从来没有遇到过这个问题。我试过重新启动并清除我的工作表，但它不起作用。我已经尝试在整个 sub 中添加一些打印输出，但我不确定我应该寻找什么，因为只有几行而且一切看起来都适合我。

我正在使用带有两个文本框的多页用户表单。我已经确认引用错误文本框的代码没有问题，并且在单击子副本时都会发生错误。

Answer 1

DataObject 方法最近似乎不可靠。

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

另外 - 包括相关的：

How to fix userform Textbox copy to clipboard no longer working