Modul exportieren und importieren
12.04.2005 09:09:21
Michel
mit folgendem Code will ich Blätter und ein Modul meiner derzeit aktiven Mappe in eine neue Mappe kopieren. Allerdings erhalte ich den 'Fehler 9: Index außerhalb des gültigen Bereiches' bei 'ThisWorkbook.VBProject.VBComponents("basMain").Export sPath & "basMain.bas"'
Habe aber keine Ahnung warum...
Könnt ihr mir helfen bitte?
thx
Michel
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub save()
Dim dummy As String
Dim strWBName As String
Dim sPath As String
Application.DisplayAlerts = False
ActiveSheet.Unprotect ("isildur")
sPath = Application.Path & "\"
ThisWorkbook.VBProject.VBComponents("basMain").Export sPath & "basMain.bas"
'Name der Mappe
strWBName = ActiveWorkbook.Name
'Name des aktiven Blattes
dummy = ActiveSheet.Name
'Blätter in einen Array einlesen
Sheets(Array(dummy, "Listen")).Copy
'Modul importieren
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "basMain.bas"
.VBComponents("basMain").Name = "MyModul"
End With
'Schichtblatt aktivieren
Sheets(2).Activate
'Reiter ausblenden
ActiveWindow.DisplayWorkbookTabs = False
'Speichern unter
Application.Dialogs(xlDialogSaveAs).Show
'Modul wieder löschen
Kill sPath & "MyModul.bas"
ActiveSheet.Protect ("isildur")
Workbooks(strWBName).Close
Application.DisplayAlerts = True
End Sub