ich habe aus einer Datei eine Tabelle als eigenständige Datei érstellt.
Natürlich habe ich im Forum geschaut was es gibt und es funktioniert.
Nun möchte ich gern ein Modul Name modPWObjekte aus der ursprünglichen
Datei in die neu erstellte Datei kopieren bzw. exportieren.
Der Name der neu erstellten Datei = WBName,
habe mal so aufgerufen: MsgBox WBName
Die neue Datei ist also noch nicht geschlossen.
Die alte Datei ist auch noch nicht geschlossen, der Name:
'Windows("Test-Auswertung.xls").Activate
Welches bzw. WIE kann ich jetzt kopieren.
Hatte so aufgerufen:
Call PW_exportieren
Hatte mal dies gefunden, klappt aber nicht:
Sub PW_exportieren()
'Modul1 dieser Mappe in neue Datei exportieren
Dim pfad As String
Dim WBName As String
pfad = ThisWorkbook.Path & "\modPWObjekte.bas"
pfad = ThisWorkbook.Path & "\modPWObjekte.bas"
Application.VBE.ActiveVBProject.VBComponents("modPWObjekte").Export pfad
With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import pfad
End With
End Sub
mfg Kurt k