win10 文本写入剪切板

perfect131 · 发表于 2021-12-27 14:38

本帖最后由 perfect131 于 2021-12-27 14:44 编辑

最近碰到的问题，将文本写入剪切板，最开始用的 CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 写入的可发现读取的文本是两个问号，找到好几个解决方案

参考1：https://blog.csdn.net/taller_2000/article/details/115810466
参考2：https://blog.csdn.net/lyfegf/article/details/120486916
参考3：https://stackoverflow.com/questions/5552299/how-to-copy-to-clipboard-using-access-vba

这里面个人觉得最好的还是用 [color=var(--highlight-color)]HtmlFile 方法写入，简单还能 32/64 通用
测试代码：：

Sub kong()
Dim oDataObject, oDom, ss, sCB
Set oDom = CreateObject("htmlfile")
ss = "你好"
'''将文本写入剪切板
oDom.ParentWindow.ClipboardData.SetData "text", ss
Set oDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With oDataObject
.GetFromClipboard
''获取剪贴板中的内容
sCB = .GetText
Debug.Print sCB
End With
End Sub

复制代码

补充内容 (2022-10-14 19:27):
好像只能复制 string 格式，9 楼参考

五分钟 · 发表于 2021-12-28 13:16

感谢分享，支持！

591451013 · 发表于 2021-12-28 14:14

感谢分享，支持！
我用的是参考1的第一种方法，但是此方法换行符无法识别

dongdonggege · 发表于 2021-12-29 08:48

请问楼主，我运行到CreateObject("htmlfile")，提示部件不能建立？win7，03、07都不行，什么原因？

无雨谷 · 发表于 2021-12-29 08:56

路过，学习一下

aecn · 发表于 2021-12-29 10:25

感谢分享，记录一下

perfect131 · 发表于 2021-12-29 16:13

dongdonggege 发表于 2021-12-29 08:48
请问楼主，我运行到CreateObject("htmlfile")，提示部件不能建立？win7，03、07都不行，什么原因？

没用win7测试过，不知什么原因

你可以试试 SetText

Sub kong()
Dim oDataObject, ss, sCB
ss = "你好" & Chr(10) & "hello world"
Set oDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
oDataObject.Clear
''写入剪切板
With oDataObject
.SetText ss
.PutInClipboard
End With
With oDataObject
.GetFromClipboard
''获取剪贴板中的内容
sCB = .GetText
Debug.Print sCB
End With
Set oDataObject = Nothing
End Sub

复制代码

goldowl2011 · 发表于 2022-1-3 16:29

Mark . Thanks a lot.

perfect131 · 发表于 2022-10-14 14:28

防止自动化(Actomation)错误，加 Cstr函数

Sub kong()
Dim oDataObject, oDom, ss, sCB
Set oDom = CreateObject("htmlfile")
ss = 1111
'''将文本写入剪切板
oDom.ParentWindow.ClipboardData.SetData "text", cstr(ss)
Set oDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With oDataObject
.GetFromClipboard
''获取剪贴板中的内容
sCB = .GetText
Debug.Print sCB
End With
End Sub

复制代码

perfect131 · 发表于 2022-11-16 12:56

本帖最后由 perfect131 于 2022-11-16 14:31 编辑

清空剪切板（其实就是复制 ""(零长度的字符串)）

CreateObject("htmlfile").ParentWindow.ClipboardData.SetData "text",""

		自动登录	找回密码
密码			免费注册

[分享] win10 文本写入剪切板

评分