1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub export() ' VBAプロジェクトオブジェクトモデルへのアクセスを信頼する ' 参照設定 Microsoft Visual Basic for Applications Extensibility For Each m In ThisWorkbook.VBProject.VBComponents extension = "" If m.Type = vbext_ct_ClassModule Then extension = "cls" If m.Type = vbext_ct_MSForm Then extension = "frm" If m.Type = vbext_ct_StdModule Then extension = "bas" If extension <> "" Then m.export (ThisWorkbook.Path & "\" & m.Name & "." & extension) Next End Sub |