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
