《求助》sw宏PutInClipboard，有时候能用，有时候复制的是

505260187 · 发表于 2022-5-28 12:18:53

《求助》sw宏PutInClipboard，有时候能用，有时候复制的是，求助遇到过这种问题的大神，分享解决方法。代码如下：
Private Sub CommandButton5_Click()
Set Clipboard = New DataObject
If Len(TextBox3.Text) = 0 Then
MsgBox ("内容为空，不能复制！")
Else
'MsgBox Len(TextBox3.Text)
Clipboard.SetText TextBox3.Text
Clipboard.PutInClipboard
MsgBox ("复制成功，请粘贴到记事本。")
End If
'
End Sub

505260187 · 发表于 2022-6-1 14:01:20

貌似这样可以用了。网上找了个帖子（[分享] windows8及64位office下操作剪贴板文本）里的函数
Public Sub SetCB(ByVal text As String)
With CreateObject("Forms.TextBox.1")
      .MultiLine = True
      .text = text
      .SelStart = 0
      .SelLength = .TextLength
      .Copy
End With
End Sub

Private Sub CommandButton1_Click()
If Len(TextBox1.text) = 0 Then
      MsgBox ("内容为空，不能复制！")
Else
      Call SetCB(TextBox1.text)
      MsgBox ("复制成功，请粘贴到EXCEL文件。")
End If
Set data = Nothing
End Sub

xiaocake · 发表于 2022-5-28 16:20:07

我也遇到过了的，还没有找到解决办法。。。

zhouhongli · 发表于 2022-5-31 15:11:24

顶一下，坐等高手！

Allate · 发表于 2022-5-31 22:15:29

经典案例图书

这个估计和代码的关系不大，倒是和SW的运行机制有关——在SW的操作中，有的操作会清空剪切板的，比如，在装配体中插入零件之类的。

505260187 · 发表于 2022-6-1 08:53:15

如果复制到剪切板是，重启sw软件都好不了，需要重启电脑。我有几次碰到打开PowerPoint后或者打开excel后就出现这个问题了，我一度怀疑是使用了带有VBA的其他软件的原因，但是有时候SW软件用一段时间后也会这样了，必须重启电脑。不知道SW是否有内置的方法实现这个功能，而不要用DataObject下的PutInClipboard方法？

xiaocake · 发表于 2022-6-6 21:16:37

经典案例图书

505260187 发表于 2022-6-1 14:01
貌似这样可以用了。网上找了个帖子（[分享] windows8及64位office下操作剪贴板文本）里的函数
Public Sub ...

感谢！！！这个方法不错，我也测试了，很好用！！！

		自动登录	找回密码
密码			立即注册

《求助》sw宏PutInClipboard，有时候能用，有时候复制的是

最佳新人

活跃会员

宣传达人

热心会员

灌水之王

突出贡献

《求助》sw宏PutInClipboard，有时候能用，有时候复制的是￿￿

最佳新人

活跃会员

宣传达人

热心会员

灌水之王

突出贡献

《求助》sw宏PutInClipboard，有时候能用，有时候复制的是