[已解决]clipboard无法使用

winwiner

请教各位老师、高手
clipboard无法使用弹出如下提示，如何可使用该对象。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-9 06:51

1. Sub test()
   
2.     Dim s As String
   
3.     Dim myClip As Object
   
4.     s = "This is a test"
   
5.     Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     With myClip
   
7.         .SetText s '变量
   
8.         .PutInClipboard
   
9.     End With
   
10.     Set myClip = Nothing
    
11.     MsgBox "复制完成，按 粘贴 试试"
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

文本框有选择文本嘛？
不行就直接用.TEXT测试吧。

hwc2ycy

1. Sub test()
   
2.     Dim s As String
   
3.     Dim myClip As Object
   
4.     s = "This is a test"
   
5.     Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     With myClip
   
7.         .SetText s '变量
   
8.         .PutInClipboard
   
9.     End With
   
10.     Set myClip = Nothing
    
11.     MsgBox "复制完成，按 粘贴 试试"
    
12. End Sub

复制代码

hwc2ycy

如果是文本框，控件自身就有带COPY和PASTE方法的。