Option Explicit
'  Export modulov, harkov a formularov
'  V nastaveniach makra, povol doveryhodny model VBA
'  Vytvor si na disku C:\ priecinok Temp
'
Sub ExportMods()
    Dim i As Integer
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Range("A1").Offset(i - 1, 0).Value = .Item(i).Type
            Range("A1").Offset(i - 1, 1).Value = .Item(i).Name
            .Item(i).Export "C:\Temp\" & .Item(i).Name & ".bas"
        Next i
    End With
    MsgBox "Si uspesne vyexportoval...", vbInformation, "Export modulov"
    
End Sub


Sub ImportMods()
Dim i As Integer
Dim x
    With ActiveWorkbook.VBProject.VBComponents
        For i = 0 To WorksheetFunction.CountA(Range("A:A")) - 1
            .Import "C:\Temp\" & Range("B1").Offset(i, 0).Text & ".bas"
        Next i
    End With
    MsgBox "Si uspesne naimportoval...", vbInformation, "Import modulov"
End Sub


Sub xxx()
    Const vbext_ct_ClassModule = 2
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Select Case .Item(i).Type
                Case vbext_ct_ClassModule
                    MsgBox "Class module: " & .Item(i).Name
                Case Else
    '                MsgBox "Not a class module: " & .Item(i).Name
                End Select
        Next i
    End With
End Sub