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