weiß jemand von Euch, wie die Module mit den VB-Codes automatisch in eine Textdatei exportiert werden können?
Vielen Dank!
Volker
Sub ExportModule()
Dim strPath As String
strPath = "C:\Copy\"
'ThisWorkbook.VBProject.VBComponents("Modul1").Export strPath & "Modul1.bas"
ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").Export strPath & "DA.cls"
End Sub
Sub ExportModule()
Dim vbc As Object
Dim strPath As String
strPath = "C:\Copy\Muell\"
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
vbc.Export strPath & vbc.Name & ".bas"
Next vbc
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen