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