|
本帖最后由 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 楼参考 |
评分
-
2
查看全部评分
-
|