使用 vba 从两个单元格文本复制到剪贴板

Question

我想创建一个 VBA 代码，这样我就可以设置一个快捷方式，从两个不同的单元格复制到剪贴板，这样我就可以用准确的名称保存一个文件。

每当我使用快捷方式时，从活动行开始，代码应该从 G 列中的行复制，然后放置一个 space 和一个连字符以及另一个 space 并从复制行E 列并扔到剪贴板，这样我就可以将相应的文件重命名为这一行。

---

@edit¹ 那家伙给我的代码有效，但不能保留前导零。 单元格格式为.NumberFormat = #000000000，代码只获取单元格的值。 使用示例，代码副本类似于 TRANSPORTE GARCIA - 32021。 请帮忙。

Answer 1

将字符串复制到剪贴板 (DAO)

Option Explicit

Sub copyName()
    If TypeName(Selection) = "Range" Then
        Dim cString As String
        With Selection.Rows(1).EntireRow
            cString = .Range("G1").Value & " - " & .Range("E1").Value
        End With
        With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .SetText cString
            .PutInClipboard
        End With
    End If
End Sub