[已解决]如何用VBA 将代码中的一个字符串放入 系统 粘贴板

事后诸葛亮

就是 我自定义一个名称
dim strAA
strAA="你好！"

如何用代码将 strAA 的值 "你好！" 放入系统粘贴板。
我想让使用者一点按钮就可以将一段文字进行复制。
然后 可以直接粘贴到 txt 或 邮件当中。

最佳答案

月排行榜 / 总排行榜

sliang28

2013-7-14 08:47

突然想到vb有个DataObject这个类，查了下VBA应该是这样做的。
先引用 Microsoft Forms 2.0 Objiect Librery，你懂得吧！VBA编辑器-工具-引用-勾上它

1. Sub Test()
   
2.     Dim STRAA As String
   
3.     Dim MyData As dataobject
   
4.         STRAA = "你好!"
   
5.         Set MyData = New dataobject
   
6.         MyData.settext STRAA
   
7.         MyData.putinclipboard
   
8.     Set MyData = Nothing
   
9. End Sub

复制代码

这个只支持文本，不支持图片之类的

跳转到最佳答案楼层

sliang28

把你的字符串放到单元格里面去,然后range("单元格地址").copy 就到粘贴板上了。

事后诸葛亮

sliang28 发表于 2013-7-13 16:26
把你的字符串放到单元格里面去,然后range("单元格地址").copy 就到粘贴板上了。

这个方法不行，我想要直接复制到系统粘贴板的。谢谢你的回答

sliang28

突然想到vb有个DataObject这个类，查了下VBA应该是这样做的。
先引用 Microsoft Forms 2.0 Objiect Librery，你懂得吧！VBA编辑器-工具-引用-勾上它

1. Sub Test()
   
2.     Dim STRAA As String
   
3.     Dim MyData As dataobject
   
4.         STRAA = "你好!"
   
5.         Set MyData = New dataobject
   
6.         MyData.settext STRAA
   
7.         MyData.putinclipboard
   
8.     Set MyData = Nothing
   
9. End Sub

复制代码

这个只支持文本，不支持图片之类的