使用ClipBoard_SetData（）复制文本并不起作用

Question

我正在调用一个函数，使用来自http://support.microsoft.com/kb/210216的API函数在Windows XP上使用Access 2003将文本复制到Windows剪贴板。

该函数确实清除了剪贴板，但它实际分配到剪贴板时无声地失败。单步执行代码并在即时窗口中查询错误不会产生任何结果。

我完全按照网页上的显示复制并粘贴了MS功能。

Answer 1

我使用这个功能，几乎完全一样。它使用剪贴板的注册表项。试试看。

Public Sub CopyTextToClipboard(ByVal inText As String)
'***************************************
'       Background copy of any Text
'***************************************
    Dim objClipboard As Object
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    objClipboard.SetText inText
    objClipboard.PutInClipboard

    Set objClipboard = Nothing
End Sub

所以要复制你只是使用的任何测试，

CopyTextToClipboard "Hello World !!"

然后使用 Ctrl + V 粘贴它。