怎么把一个变量的值放入剪贴板？

一掷乾坤

怎么把一个变量的值放入剪贴板？

tanglf188

变量值放入单元格，再copy这个单元格

ykcbf1100

Set oData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")   '//剪贴板
最好有附件，没有附件只能这样说下了。

suntao2000

Sub 示例()

    y = "这里是剪贴板的内容!"
    '1、把内容赋值到变量y
   
     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText y
        .PutInClipboard
    End With
    '2、把变量y写入剪贴板

    MsgBox y, vbApplicationModal, "以下内容已复制可直接粘贴"
    '3、输入剪贴板中的内容
                                    
End Sub

一掷乾坤

tanglf188 发表于 2023-3-15 13:34
变量值放入单元格，再copy这个单元格

copy出来，贴到qq是个图片，我要文本。

一掷乾坤

suntao2000 发表于 2023-3-15 13:51
Sub 示例()

    y = "这里是剪贴板的内容!"

Dim ss As String
    ss = Range("A1").Value
    CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").SetText ss

这么写了，不行。

一掷乾坤

ykcbf1100 发表于 2023-3-15 13:39
Set oData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")   '//剪贴板
最好有附件，没有 ...

没有附件，就是想把A1单元格的值放入剪贴板，然后能在其他地方直接使用。

一掷乾坤

suntao2000 发表于 2023-3-15 13:51
Sub 示例()

    y = "这里是剪贴板的内容!"

可以了，感谢

perfect131

suntao2000 发表于 2023-3-15 13:51
Sub 示例()

    y = "这里是剪贴板的内容!"

CreateObject("new:{  有bug，有时会出现？？，还是用 htmlfile
https://club.excelhome.net/thread-1611306-1-1.html

一掷乾坤

perfect131 发表于 2023-3-20 20:48
CreateObject("new:{  有bug，有时会出现？？，还是用 htmlfile
https://club.excelhome.net/thread-161 ...

果然是有bug，用了一段时间出问题了，用这个方法解决了。