VBA-Komponenten per VBA kopieren

[heli]

Hallo liebes Forum !

Leider habe ich schon wieder ein Problem:
Ich habe aus einem Beitrag einen Code zum Kopieren von Modulen in eine andere (neue) Datei gefunden.
Leider funktioniert der Code so nicht, da er die Komponenten immer in die Datei kopiert in der Code steht, womit sie dann doppelt wären.
Anstatt einer neuen Datei würde ich eine andere Datei wählen, aber das müsste im Prinzip ja dann egal sein.

Code:

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

Kann mir bitte vielleicht jemand helfen.
Vielen Dank.
Liebe Grüße aus Innsbruck
Helmut

[Kuwer]

Hallo Helmut,

Code:

Sub Komponenten_in_neue_Datei_exportieren()
 'alle VBE-Komponenten dieser Mappe in neue Datei exportieren
 Dim Ding As Object
 Dim Pfad As String
 Dim Ziel As Workbook
 
 Set Ziel = Workbooks.Add
 'On Error Resume Next
 For Each Ding In ThisWorkbook.VBProject.VBComponents
    Pfad = ThisWorkbook.Path & "\" & Ding.Name
    Ding.Export Pfad
    Ziel.VBProject.VBComponents.Import Pfad
    Kill Pfad
    'Kill Pfad & ".frx"
 Next Ding
 MsgBox "alles in neue Datei kopiert", , ""
End Sub

Gruß Uwe

[Winny]

Hi

ist nicht sauber, so auf die Schnelle, aber zum Weiterbasteln sollte es reichen

Code:

       Workbooks("Dein Workbook").Sheets(1).Activate ' statt .Add
       With ActiveWorkbook
           .VBProject.VBComponents.Import Pfad
       End With

da ist aber generell noch etwas mehr Nacharbeit notwendig, siehe die Erläuterungen in den Links deines anderen Beitrages, merkst Du auch wenn Du obiges am Laufen hast
 

[heli]

Hallo Uwe, Hallo Winny !

Vielen Dank für Eure Hilfe, jetzt funktioniert es.

Liebe Grüße
Helmut