数组写入剪切板

yuk_yu 发布于 2015-12-17 18:10， 1807 次点击

程序代码：

Sub xx()
    X = Array("1", "2", "3", "4", "5", "6")
    Dim d As Object
    Set d = New DataObject
    For i = 1 To 5
        d.SetText '如何将X写入剪切板？
        d.PutInClipboard
        Debug.Print d.GetText
    Next
    Set d = Nothing
End Sub

3 回复

风吹过b2015-12-17 21:14

先把数组拼成一个字符串，可以使用 JOIN 函数。
然后操作剪切板，先清，再设置。

在手机上，无法给你代示例代码

yuk_yu2015-12-18 09:07

回复 2楼风吹过b

谢谢版主

mznlp2016-01-03 01:50

谢谢，请问从剪切板放入数组怎么写？