VBA-Beispiel 062
mail schreiben
mail schreiben

alle VBA-Komponenten dieser Mappe in neue Datei exportieren

Kopiert alle Module, Klassenmodule und UserFormen in eine neue Exceldatei.

Bei größeren Projekten werden während der Entwicklungszeit oft Tabellen, Module usw. gelöscht. Allerdings bleiben diese Elemente trotzdem im Gedächtnis von Excel und die Dateigröße steigt immer weiter an.

Kopiert man alle Elemente in eine neue Datei, kann dadurch die Dateigröße oft erheblich reduziert werden.
Sub Komponenten_in_neue_Datei_exportieren()
'alle VBE-Komponenten dieser Mappe in neue Datei exportieren
Dim Ding As Object
Dim Pfad As String

Workbooks.Add

On Error Resume Next

For Each Ding In ThisWorkbook.VBProject.VBComponents  
    Pfad = ThisWorkbook.Path & "\" & Ding.Name
    Ding.Export Pfad

    With ActiveWorkbook
      Application.VBE.ActiveVBProject.VBComponents.Import Pfad
    End With

    Kill Pfad
    Kill Pfad & ".frx"

Next Ding

MsgBox "alles in neue Datei kopiert", , ""

End Sub

Download:   vba062.zip