excel-vba - 如何将单元格的内容复制到剪贴板

我正在尝试将单元格内容复制到剪贴板。

我已经阅读并尝试了Excel 2007帮助文件中提供的确切示例。但是由于某种原因，DataObject对象无效。因此，示例：

Dim MyData As DataObject

Private Sub CommandButton1_Click()
    Set MyData = New DataObject

    MyData.SetText TextBox1.Text
    MyData.PutInClipboard

    TextBox2.Paste
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Text = "Move this data to a " _
        & "DataObject, to the Clipboard, then to " _
        & "TextBox2!"
End Sub

在我的情况下不起作用。我已经搜索了好一阵子，但找不到为什么DataObject对象不可用的答案。

这是我的代码：

Dim MyData As DataObject

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 3 Then
        Set MyData = New DataObject
        MyData.SetText ActiveCell.Offset(-1, -1).Text
        MyData.PutInclipboard
    End If
End Sub

编译时的错误是：“未定义用户定义的类型”，并突出显示了“ MyData As DataObject”行。

还有另一种方法可以简单地将单元格中的文本复制到剪贴板吗？

最佳答案

好的，几件事：

首先，您需要添加对“ Microsoft Forms 2.0对象库”的引用，如果您不想进行搜索，只需将用户表单添加到项目中，然后立即将其删除，该引用将保留下来。您需要该引用才能使用DataObject

我将附上一些我需要工作的代码，我更改了偏移量，但可以根据需要设置它们。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set MyData = New DataObject
    If ActiveCell.Column = 3 Then
        MyData.SetText ActiveCell.Offset(-1, 0).Text
        MyData.PutInClipboard
    End If
End Sub

关于excel-vba - 如何将单元格的内容复制到剪贴板，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/710435/