2014年10月22日水曜日

モジュールを新規ブックにimportするマクロ

モジュールを新規ブックにimportするマクロ
gTempPath = IIf(Environ$("tmp") <> "", Environ$("tmp"), Environ$("temp"))
ThisWorkbook.VBProject.VBComponents("module1").Export (gTempPath & "\module1.bas")
Workbooks.Add
ActiveWorkbook.VBProject.VBComponents.Import (gTempPath & "\module1.bas")
CreateObject("Scripting.FileSystemObject").DeleteFile gTempPath & "\module1.bas"

0 件のコメント:

コメントを投稿