程序代码：

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