如何将文本从 vba 复制到 windows 剪贴板

Question

我有一个 ms 访问 vba 代码，我希望从中复制一些文本值到 Windows 剪贴板，以便我可以将其粘贴到其他地方（Word/Excel/记事本/等）。

我一直在寻找这个，但一切似乎都过于复杂。 它不应该是简单的事情吗

剪贴板.SetText textValue

?

编辑

我尝试按照 BrianMStafford 的提示进行操作，但没有成功。 也许原因是我的对象是树中的一个节点。 当我做

MsgBox Me.NodeKey.Value

一切正常 - 我在消息框中看到节点路径。

但是当我这样做时

Me.NodeKey.SetFocus
DoCmd.RunCommand acCmdCopy

我没有在剪贴板中获得节点路径

那么如何将节点路径值复制到 Windows 剪贴板中呢？

Answer 1

Public Sub WriteToClipboard(ByVal text As String)
    CreateObject("htmlfile").ParentWindow.ClipboardData.SetData "text", text
End Sub

示例用法：

WriteToClipboard "test"

编辑#1

以上似乎在Excel中工作得很好。 我只设法让它在特定计算机的 Access 中工作。 在另一台计算机上测试后，我收到错误 70（拒绝访问）。

如果关闭 Windows 资源管理器，以下内容仅适用于 Excel。 但是，无论资源管理器是否打开/关闭，它似乎都可以在 Access 中正常工作：

Public Sub WriteToClipboard(ByVal text As String)
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'MsForms.DataObject
        .SetText text
        .PutInClipboard
    End With
End Sub

Answer 2

它应该像您说的那样简单，但是由于某种原因，Access 没有与 excel 相同的“选项”。 您必须手动添加它或使用几乎相同的 Cristian Buse 的答案，他正在跳过添加参考。 所以这里是手动添加引用以在 Access 中使用.SetText的方法。

Access 没有像 Excel 这样的参考表中列出的 MS 表单（不要问我为什么），但您可以浏览到文件位置并手动添加它：

手动添加后，您可以在任何地方使用 .SetText，只要您当然还声明了对象。

Sub testCopy()
    Dim clipOb As MSForms.DataObject
    Set clipOb = New MSForms.DataObject
    clipOb.SetText Format(Now(), "m/d/yyyy")
    clipOb.PutInClipboard
End Sub

现在您可以将其粘贴到任何地方。 只需将Format(Now(), "m/d/yyyy")替换为您的Me.NodeKey.Value 。 如果您的 Value 为空/空白，它将给您一个错误，因此只需在使用.SetText之前进行检查，以确保您有一个要设置的值。

Answer 3

使用 Windows API 设置剪贴板数据。

这是文档页面： https ://docs.microsoft.com/en-us/office/vba/access/concepts/windows-api/send-information-to-the-clipboard

这是 2 个如何使用示例所需的代码。 运行 sub 将数据保存到剪贴板后，只需将其粘贴到任何地方。

Option Explicit

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32.dll" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32.dll" (ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyW" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long

Public Sub SetClipboard(sUniText As String)

    Dim iStrPtr As Long
    Dim iLen As Long
    Dim iLock As Long
    
    Const GMEM_MOVEABLE As Long = &H2
    Const GMEM_ZEROINIT As Long = &H40
    Const CF_UNICODETEXT As Long = &HD
    
    OpenClipboard 0&
    EmptyClipboard
    
    iLen = LenB(sUniText) + 2&
    iStrPtr = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, iLen)
    iLock = GlobalLock(iStrPtr)
    lstrcpy iLock, StrPtr(sUniText)
    GlobalUnlock iStrPtr
    SetClipboardData CF_UNICODETEXT, iStrPtr
    CloseClipboard
    
End Sub

Sub Example_SetClipboardData_1()

    SetClipboard "Hello World"
    
End Sub

Sub Example_SetClipboardData_2()
    
    Dim TextVar As String
    
    TextVar = "Hello again, World"
    SetClipboard TextVar
    
End Sub

Answer 4

在谷歌搜索 Cristian 发布的目标代码时，我发现一个很好的页面列出了早期绑定和后期绑定的可能性。 因此，此页面结合了 Christian Buse 和 Ricardo A 的答案。

看

https://desmondoshiwambo.wordpress.com/2012/02/23/how-to-copy-and-paste-text-tofrom-clipboard-using-vba-microsoft-access/