2012-02-12

Excel ファイルパスをクリップボードにコピーする方法

Excelファイルの共有ファイルサーバのパスを同僚にメールしたい場合に使うマクロ。

VBA EditorでPersonal.xlsbにユーザーフォームを追加する。ユーザーフォームを追加しないと、次の参照設定で参照できないから。
※個人用マクロブックに記録したことがない場合は「マクロの記録」で適当な動作を記録しておくこと。これをしておかないとPersonal.xlsbを次の手順で開けない。

[ツール]-[参照設定]で[Microsoft Forms 2.0 Object Library]がチェックされているのを確認する。



[標準モジュール]を追加して、
モジュールに以下のコードを書く。


Sub GetFilePath()

   Set myClip = New DataObject

   myfile = ActiveWorkbook.FullName
   myClip.Clear
   myClip.SetText myfile
   myClip.PutInClipboard

End Sub