EXCEL/VBA 変数の値をクリップボードにコピーする方法

EXCEL/VBAで、変数Xの値をクリップボードにコピーする方法を教えて貰えませんか。下記のように変数Xを一度セルに代入すると出来ますが、変数Xを直接クリップボードにコピーする方法が分かりません。
宜しく、お願いします。

Range("a1") = X
Range("a1").Copy

No.1 ベストアンサー 回答者： tsukasa-12r 回答日時： 2010/02/05 01:31

1.DataObjectを使用する方法

と
2.APIを使用する方法
が考えられます。

1.は「VBA DataObject」
2.は「VBA API CLIPBOARD」
などで検索してみてください。サンプルが見つかると思います。

この回答へのお礼

検索しました。
1.DataObjectを使用する方法は、うまく動作しました。
2.APIを使用する方法は、「オブジェクトが必要です」のエラーが出てうまく動作しませんでした。APIの宣言がまずいのかも知れません。
EXCEL VBAの場合は、「DataObjectを使用する方法」の方が色々と良いサンプルが載っていました。
回答有難うございました。

お礼日時：2010/02/07 00:34

No.2 回答者： merlionXX 回答日時： 2010/02/06 17:46

'VBEの「ツール」、「参照設定」で「Microsoft Forms 2.0 Object Library」にチェックを入れてから使用してください。

'（そうしないとエラーになります）

Sub test01()
　　Dim myData As DataObject
　　Dim myCb As Variant
　　Dim x
　　x = "TESTデータです。"
　　Set myData = New DataObject
　　myData.SetText x
　　myCb = myData.GetText
　　myData.PutInClipboard
End Sub

この回答へのお礼

うまく動作しました。
親切にコードを記載して頂きまして、有難うございます。
DataObjectを使用する方法が理解出来ました。
回答有難うございました。

お礼日時：2010/02/07 00:41