用VBA实现剪贴板复制，以便粘贴文字到QQ

鱼蛋小米粉

我想复制A6单元格的文字到QQ。如果直接复制粘贴的话，复制到QQ后会变成图片。但如果按了剪贴板，复制到QQ时就是文字了我的操作是打开剪贴板，清空剪贴板，复制A6，选定A9单元格，单击剪贴板A6的内容，粘贴到QQ，删除A9的内容，关闭剪贴板。
但录制宏之后运行出错：

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("A6").Select
    Selection.Copy
    Range("A9").Select
    Application.CutCopyMode = False
    ActiveSheet.Paste
    Selection.ClearContents
    Application.CommandBars("Office Clipboard").Visible = False
End Sub


求解决办法？该如何改写编码呢？

鱼蛋小米粉

录制好宏之后，重新运行宏，就会提示：类Worksheet的Paste 方法无效

百度不到去谷歌

好好搜索 我都回答了N次这问题
http://club.excelhome.net/forum.php?mod=viewthread&tid=1125609&page=1#pid7669334

psxk3535

单一单元格内容粘贴到QQ、微信等，心想事成1181188  的代码好用，区域单元格没试
Sub test()
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .SetText Range("a1")
            .PutInClipboard
        End With
End Sub

补充内容 (2020-10-21 13:20):
剪切后是文本格式

补充内容 (2020-10-21 13:47):
区域复制，先选中区域，然后运行VB，或添加固定区域或换成 Public Sub 文本剪贴板()
Sub 文本剪切板()
Dim tt, a, i&, j&
On Error Resume Next
a = Selection.Value
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
tt = tt & " " & a(i, j) '列之间用空格分隔
Next
tt = tt & vbNewLine '换行
Next
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
.SetText tt
.PutInClipboard
End With
End Sub

Chiyuen

psxk3535 发表于 2020-10-3 12:12
单一单元格内容粘贴到QQ、微信等，心想事成1181188  的代码好用，区域单元格没试
Sub test()
With Create ...

完美。。。。。。。。。。。。。。。。。。。。。。。。