DataObject.PutInClipboard自动化报错，请大神帮忙看下如何解决

股理乾坤 · 发表于 2023-2-21 12:13

如下代码，是用来把变量值写入剪切板的，在执行自动化的时候一直报错，错误内容如下图，错误在这一句里.PutInClipboard

特注：此代码在做单步调试的时候是不报错的，一自动运行就报错

<blockquote><font size="4">Function HX001(HXAot_Text)</font>

复制代码

股理乾坤 · 发表于 2023-2-21 12:15

Function HX001(HXAot_Text)
Dim HX_Datad As New DataObject
With HX_Datad
.SetText HXAot_Text 'Selection.Text
.PutInClipboard
End With
End Function

复制代码

zldccmx · 发表于 2023-2-21 12:47

加一个延时，给系统一个反应时间

perfect131 · 发表于 2023-2-21 12:56

防止问号还是用 CreateObject("htmlfile") 吧
https://club.excelhome.net/thread-1611306-1-1.html

股理乾坤 · 发表于 2023-2-21 13:14

perfect131 发表于 2023-2-21 12:56
防止问号还是用 CreateObject("htmlfile") 吧
https://club.excelhome.net/thread-1611306-1-1.html

都试过了，F8调试不会报上面的错误，如何按F5运行直接报上面的错，这个链接的几个方案都试过了，不可行，还请帮忙解答，感谢

lss001 · 发表于 2023-2-21 13:56

股理乾坤发表于 2023-2-21 13:14
都试过了，F8调试不会报上面的错误，如何按F5运行直接报上面的错，这个链接的几个方案都试过了，不可行， ...

可以试试后期引用

With CreateObject("new:{1C3B4210-F441-11CE-00AA006B1A69}")
.SetText "xxx" '设置值
.PutInClipboard
.GetFromClipboard
Debug.Print .GetText '获取值
.SetText ""
.PutInClipboard '清空值
End With

剑指E · 发表于 2023-2-21 14:49

只能告诉你win10(64)+365(64)运行正常。

股理乾坤 · 发表于 2023-2-21 16:53

剑指E 发表于 2023-2-21 14:49
只能告诉你win10(64)+365(64)运行正常。

您这样说，让我如何是好，哎

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