VBA で参照設定せずに DetaObject を使用する

Excel の VBA で クリップボードにデータを格納する場合 DetaObject を使う方法があります。

参照設定をせずに DetaObject を使う場合 次のように書きたくなりますが、 これはエラーになります。

Set Clip = CreateObject("MSFORMS.DataObject")

色々と調べてみると、次のように宣言できるようです。

CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

これを利用すれば 参照設定せずに 簡単にクリップボードに文字列を格納できます。

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText "この文字列をクリップボードに格納します"
    .PutInClipboard
End With 

Google サイト内検索

Amazonアソシエイト