Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement