Thema: Module und UserForms einer zu öffnenden Arbeitsmappe exportieren

StandardModule: Modul1

Sub BasExtract()
   Dim vbc As Object
   Dim iCounter As Integer
   Dim sFile As String, sTarget As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Die Datei " & sFile & " wurde nicht gefunden!"
      Exit Sub
   End If
   sTarget = WorksheetFunction.Substitute(sFile, "\" & Dir(sFile), "")
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Workbooks.Open sFile, False
   For Each vbc In ActiveWorkbook.VBProject.VBComponents
      iCounter = iCounter + 1
      If vbc.Type = 1 Or vbc.Type = 100 Then
         vbc.Export sTarget & "\backup" & iCounter & ".bas"
      Else
         vbc.Export sTarget & "\backup" & iCounter & ".frm"
      End If
   Next vbc
   ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen VBE und UserForm