[已解决]把VBA中的复制到系统粘贴板代码转到VB中失效。

事后诸葛亮

什么原因，如何解决？


VBA中运行正常的代码 如下：直接复制到VB中不能用。。。报错，如上
Sub Sub执行信息复制操作()
    On Error Resume Next

dim Data待复制信息
Data待复制信息="aaaa"

    Dim MyClipboard As New DataObject
    With MyClipboard
        .SetText Data待复制信息
        .PutInClipboard
    End With
    Set MyClipboard = Nothing
    MsgBox "信息已经成功“复制”到粘贴板，" & vbCrLf & vbCrLf & "您只需要进行“粘贴”操作即可。", , "信息复制成功!"
End Sub

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-7-21 09:18

VB中直接用clipboard，不需要定义变量：

clipboard.clear
clipboard.settext “这里是你要复制的内容"

获取剪切板内容：
clipboard.gettext

跳转到最佳答案楼层

sliang28

把 new 去掉试一下。

dongqing1998

VB中直接用clipboard，不需要定义变量：

clipboard.clear
clipboard.settext “这里是你要复制的内容"

获取剪切板内容：
clipboard.gettext

事后诸葛亮

dongqing1998 发表于 2013-7-21 09:18
VB中直接用clipboard，不需要定义变量：

clipboard.clear

呵呵。谢谢。