VBAモジュール一括Export/Import
Sub testImport()
ThisWorkbook.VBProject.VBComponents.Import ("YieldCurveCells.cls")
ThisWorkbook.VBProject.VBComponents.Import ("DFSSpotPosition.bas")
ThisWorkbook.VBProject.VBComponents.Import ("RetrieverDlg.frm")
End Sub
Sub testExport()
Dim module_count As Long 'モジュールの個数
Dim i As Long 'For文のカウンタとして使用
With thisWorkbook.VBProject.VBComponents
module_count = .count
For i = 1 To module_count
Select Case .Item(i).Type
Case 3 'ユーザフォームのとき
.Item(i).Export (.Item(i).name + ".frm")
Case 1 '標準モジュールのとき
.Item(i).Export (.Item(i).name + ".bas")
Case Else 'それ以外
Debug.Print CStr(.Item(i).Type) + ":" + .Item(i).name
.Item(i).Export (.Item(i).name + ".cls")
End Select
Next
End With
End Sub