Module Importieren/exportieren
ing.grohn
es scheint kein Problem zu sein, alle Module eines Projects zu exportieren:
Sub ExportModule()
Dim Dateien() As String
Dim vbc As Object
Dim strPath As String
Dim i As Integer
strPath = "C:\Albrecht\VBA-Jutta\"
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
ReDim Preserve Dateien(i)
Dateien(i) = vbc.Name
i = i + 1
vbc.Export strPath & vbc.Name '& ".bas"
Next vbc
End With
Load UserForm2
With UserForm2
.ListBox1.List = Dateien
.Show
End With
Unload UserForm2
End Su
Damit habe ich schein bar eine komplette Liste von Modulen als "Textdatei".
Wie aber kann ich diese importieren?
Das lesen aller Dateien aus diesem Verzeichnis und ihr Import mit:
ActiveWorkbook.VBProject.VBComponents.Import strDatei
führt jedenfalls nicht zum Ziel (Fehlermeldung: die Methode ist fehlgeschlagen)
Was muß ich machen?
Vielen Dank für Eure Hilfe
Mit freundlichen Grüßen
Albrecht