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 件のコメント:
コメントを投稿