[已解决]如何复制Excel单元格粘贴到聊天软件为文字而不是图片

yyedward@ying80

range("a1").copy

excel直接复制单元格粘贴到聊天软件的都是图片类型：

测试123

，我想要粘贴出来是文字的：  测试123

请问代码需要怎么写

最佳答案

月排行榜 / 总排行榜

eennoo

2022-3-27 17:34

1. Sub marco()
   
2. Dim clip As New DataObject
   
3. clip.Clear
   
4. clip.SetText Range("A1").Text
   
5. clip.PutInClipboard
   
6. End Sub
   

复制代码

这个DataObject类型，你需要新建一个用户窗体才会出来的

跳转到最佳答案楼层

eennoo

1. Sub marco()
   
2. Dim clip As New DataObject
   
3. clip.Clear
   
4. clip.SetText Range("A1").Text
   
5. clip.PutInClipboard
   
6. End Sub
   

复制代码

这个DataObject类型，你需要新建一个用户窗体才会出来的

yyedward@ying80

eennoo 发表于 2022-3-27 17:34
这个DataObject类型，你需要新建一个用户窗体才会出来的

老师，请问有不使用窗体的做法吗？就是单纯的复制单元格数据粘贴出来是文字就OK，例如复制单元格A1:H15的数据，粘贴到聊天软件的是文字而不是图片