将剪贴板文本内容复制到指定单元格。。

easternpig

我有一个文本内容，已经在剪贴板内，如何用VBA实现按一个键就将剪贴板内的文本内容贴到指定单元格内？

譬如 文本内容是 "ABCDE12345DEFGH"

谢谢！

easternpig

求回答呀！！！

ghostjiao

引用上面那个，

1. Sub demo()
   
2.     On Error Resume Next
   
3.     Dim MyData As DataObject
   
4.     Set MyData = New DataObject
   
5.     MyData.GetFromClipboard
   
6.     [B2].Value = MyData.GetText
   
7. End Sub
   

复制代码

然后代码如下

easternpig

ghostjiao 发表于 2015-10-28 21:00
引用上面那个，然后代码如下

谢谢呀，我试了把代码放入VBA了，但我不明白下面那张图怎么回事？

ghostjiao

easternpig 发表于 2015-10-28 21:31
谢谢呀，我试了把代码放入VBA了，但我不明白下面那张图怎么回事？

先引用这个库  代码才起其效果

easternpig

ghostjiao 发表于 2015-10-29 08:13
先引用这个库  代码才起其效果

。。我的问题圆满解决了，非常感谢协助。。

a704019026

请问那个引用菜单 在哪？？