Ich habe hier im Forum folgenden Code gefunden, um alle Module aufs mal zu exportieren.
Leider erhalte ich bei der folgenden Zeile eine Fehlermeldung:
For Each vbc In ThisWorkbook.VBProject.VBComponents
Laufzeitfehler 1004
Die Methode VBProject für das Objekt_Workbook ist fehlgeschlagen.
Code:
Public Sub alleMakrosExportieren()
Dim vbc As Object, iCounter As Integer, sMacro As String, cType As String
For Each vbc In ThisWorkbook.VBProject.VBComponents
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If .ProcOfLine(iCounter, 0) > "" Or InStr(1, .Lines(iCounter, 1), "Dim") <> 0 _
Or InStr(1, .Lines(iCounter, 1), "Public") <> 0 Or InStr(1, .Lines(iCounter, 1), "Type") <> 0 _
Or InStr(1, .Lines(iCounter, 1), "Static") <> 0 Or InStr(1, .Lines(iCounter, 1), "Declare") <> 0 Then
Select Case vbc.Type
Case 1: cType = ".bas"
Case 2, 100: cType = ".cls"
Case 3: cType = ".frm"
End Select
Workbooks(ThisWorkbook.Name).VBProject.VBComponents(vbc.Name).Export "D:\Excel\Module\" & vbc.Name & cType
Exit For
End If
Next iCounter
End With
Next vbc
End Sub
Im Voraus vielen Dank für einen Hinweis.
Thomy