Excel 2010中的VBA，将variables发送到Windows剪贴板

我有以下简单的Excelmacros：

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

是否有可能将名为Z的string发送到Windows剪贴板？

Answer 1

使用后的代码：

Excel VBA代码将特定的string复制到剪贴板

 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