将活动单元格的行号复制到剪贴板（Excel VBA）

Question

我想创建一个宏来获取活动单元格的行号并将其复制到剪贴板。

当我执行以下代码时，我得到“编译错误：无效的限定符”。

我已经忘记了我的大部分 VBA，但是这么简单的东西肯定可以工作吗？提前感谢您提供的任何帮助。

Sub macro3()
    Dim x As Integer
    x = ActiveCell.row
    x.Copy
End Sub

编辑： 使用下面的解决方案，我将其更改为以下（有效）：

首先在 VBE 中的工具 > 引用下添加对 Microsoft Forms 2.0 对象库的引用后：

Sub macro3()
    Dim x As DataObject
    Set x = New DataObject
    x.settext ActiveCell.row
    x.putinclipboard
End Sub

Answer 1

一个选项，使用 DataObject - 在 VBE 的 Tools > References 下添加对 Microsoft Forms 2.0 Object Library 的引用。

Sub Test()
    Dim x As DataObject
    Set x = New DataObject

    x.SetText ActiveCell.Row 'Or CStr(ActiveCell.Row) to make the type conversion explicit
    x.PutInClipboard
End Sub

Answer 2

你可以看看这个answer。由于使用了后期绑定，所以不需要添加引用。

您的代码看起来像（私有子是从我上面链接到的答案中复制的）：

Sub RowNumberToClipboard()
    Dim lRow As Long
    lRow = ActiveCell.Row

    Call CopyText (CStr(lRow))
End Sub


Private Sub CopyText(Text As String)
    'VBA Macro using late binding to copy text to clipboard.
    'By Justin Kay, 8/15/2014
    Dim MSForms_DataObject As Object
    Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    MSForms_DataObject.SetText Text
    MSForms_DataObject.PutInClipboard
    Set MSForms_DataObject = Nothing
End Sub