使用 MyData.PutInClipboard 把文本放入剪贴板后为什么不能ctrl+v进行粘贴？

renahu · 发表于 2023-9-23 16:20

本帖最后由 renahu 于 2023-9-23 16:29 编辑

如何把文本放入剪贴板，相当于代替ctrl+c的作用，然后可以手动ctrl+v粘贴？

MyData.GetFromClipboard
MyData.GetText(1)
可以看到文本是放入剪贴板了，但用ctrl+v粘贴无效

补充一下：刚发现在excel表中可以粘贴出来，是在立即窗口中粘贴不出来

lss001 · 发表于 2023-9-23 20:02

Sub 操作系统剪贴板() '非Office剪贴板
Set hf = CreateObject("htmlfile")
Set Clipx = hf.parentWindow.clipboardData
clipx.SetData "Text", "123456" '数据放入剪贴板
'剪贴板其它操作
'clipx.GetData("Text") '获取数据
'clipx.ClearData "Text" '清空数据
'clipx.Close '关闭剪贴板
End Sub

yynrzwh · 发表于 2023-9-23 23:14

lss001 发表于 2023-9-23 20:02
Sub 操作系统剪贴板() '非Office剪贴板
Set hf = CreateObject("htmlfile")
Set Clipx = hf.pare ...

请问可以放入变量吗？
clipx.SetData "Text", "123456" '数据放入剪贴板

lss001 · 发表于 2023-9-24 09:02

yynrzwh 发表于 2023-9-23 23:14
请问可以放入变量吗？
clipx.SetData "Text", "123456" '数据放入剪贴板

x = 123456 '变量
clipx.SetData "Text", x '数据放入剪贴板

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

[求助] 使用 MyData.PutInClipboard 把文本放入剪贴板后为什么不能ctrl+v进行粘贴？

评分

[求助] 使用 MyData.PutInClipboard 把文本放入剪贴板后 为什么不能ctrl+v进行粘贴？

评分

[求助] 使用 MyData.PutInClipboard 把文本放入剪贴板后为什么不能ctrl+v进行粘贴？