代码示例:vba Sub CopyStringToClipboardUsingDataObject() Dim jq As New MSForms.DataObject Dim ss As String ss = "要复制的字符串" jq.SetText ss jq.PutInClipboard End Sub 方法二:使用API函数 这种方法需要声明和调用Windows API函数。 声明API函数: ...
VBE>Tools> References>Microsoft Forms 2.0 Object Library>Check Dim oClipboard As MSForms.DataObject Set oClipboard = New MSForms.DataObject oClipboard.SetText Now 'copy current date/time oClipboard.PutInClipboard End Sub Function CopyToClipboard(sClipText As String) As Boolean ' Source: www.Spread...
TheSetTextmethod is used to store a string in a DataObject. The string can be a VBA variable, as demonstrated above, or a cell in your worksheet, as demonstrated below. ThePutInClipboardmethod is the magical piece that places the text in your clipboard. Copy Cell to Clipboard SubCopyToCli...
代码如下: OptionExplicit'剪贴版处理函数PrivateDeclareFunctionEmptyClipboardLib"user32"()AsLongPrivateDeclareFunctionOpenClipboardLib"user32"(ByValhWnd_AsLong)AsLongPrivateDeclareFunctionCloseClipboardLib"user32"()AsLongPrivateDeclareFunctionSetClipboardDataLib"user32"(ByValwFormat_AsLong,ByValhMemAsLong)AsLong...
Sub CopyTextToClipboard() Dim objData As New DataObject Dim strText As String strText = "使用VBA复制到剪贴板!" '设置对象文本为字符串变量指定文本 objData.SetText strText '将对象文本放置到剪贴板 objData.PutInClipboard End Sub 注意,上述代码运行前需要添加对“Microsoft Forms 2.0 Object Library”...
可以使用VBA将文本复制到剪贴板,在需要使用时再将其粘贴到合适的地方。 下面的代码使用DataObject对象将指定文本复制到剪贴板: Sub CopyTextToClipboard()Dim objDataAsNewDataObjectDim strTextAsStringstrText ="使用VBA复制到剪贴板!"'设置对象文本为字符串变量指定文本...
在这个示例中,我们使用了CreateObject来创建一个Clipboard对象,然后使用SetText方法将要复制的字符串设置为剪贴板的文本内容,最后使用PutInClipboard方法将内容放入剪贴板。 请注意,不同版本的 Office 可能对Clipboard对象的支持略有不同,所以在某些情况下,您可能需要根据您的 Office 版本进行适当的调整。但大多数情况下,...
Dim sClipString As String Sheets("sheet1").Select Range("A1").Copy If OpenClipboard(ByVal 0&) Then '如果OpenClipboard函数返回非0值,说明成功打开剪贴板 hMem = GetClipboardData(CF_TEXT) '获取剪贴板中以文本格式存在的内存对象的句柄 If CBool(hMem) Then '如果剪贴板中对应的格式不存在,...
在VBA中经常使用以下语句,来复制文本到剪贴板,但有时会出错。Dim MyData As New DataObject MyData.SetText sData, 1 MyData.PutInClipboard 为了复制文本到剪贴板更加稳定,应该调用API来处理:'复制文本到剪贴板 Public Sub CopyTextToClip(sData As String)If CBool(OpenClipboard(0)) Then Dim hMemHandle...
(abData, vbUnicode) End If Else MsgBox "不能打开剪贴板", vbCritical End If CloseClipboard End If GetClipBoard = sTextEnd FunctionPublic Function SetClipboard(clipText As String) As Boolean #If Win64 Then Dim hGlobalMemory As LongLong Dim lpGlobalMemory As Long...