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

股理乾坤

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


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

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

复制代码

股理乾坤

1. Function HX001(HXAot_Text)
   
2.     Dim HX_Datad As New DataObject
   
3.     With HX_Datad
   
4.         .SetText HXAot_Text 'Selection.Text
   
5.         .PutInClipboard
   
6.     End With
   
7. End Function

复制代码

zldccmx

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

perfect131

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

股理乾坤

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

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

lss001

股理乾坤 发表于 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

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

股理乾坤

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

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