Excel 2010中的VBA，將變量發送到Windows剪貼板

Question

我有以下簡單的Excel宏：

Sub Macro2()
'
' Macro2 Macro
'
x = Selection.Address(False, False)
y = ActiveSheet.Name
Z = "''" & y & "'!" & x

End Sub

是否可以將名為Z的字符串發送到Windows剪貼板？

Answer 1

使用后的代碼有效：

Excel VBA代碼將特定字符串復制到剪貼板

Sub Macro2()
'
' Macro2 Macro
'
x = Selection.Address(False, False)
y = ActiveSheet.Name
Z = "''" & y & "'!" & x

With New MSForms.DataObject
    .SetText Z
    .PutInClipboard
End With

End Sub