Macro exportieren
06.08.2022 16:55:16
Udo
Ich habe mal wieder eine Frage zu einem Makro.
Ich habe mir im Netz ein Makro gesucht um meine Makros zu exportieren.
Ich habe folgendes gefunden:
Public Sub Macro_Export()
If Dir("F:\sicherung\daten\makros\xxx", vbDirectory) = "" Then
MkDir ("F:\sicherung\daten\makros\xxx")
End If
Dim objVBComponent As Object
Dim objWorkbook As Workbook
Dim strType As String
Set objWorkbook = Workbooks("xxx.xlsm")
For Each objVBComponent In objWorkbook.VBProject.VBComponents
With objVBComponent.CodeModule
Select Case objVBComponent.Type
Case 1
strType = ".bas"
Case 2, 100
strType = ".cls"
Case 3
strType = ".frm"
End Select
objWorkbook.VBProject.VBComponents(objVBComponent.Name).Export _
"F:\sicherung\daten\makros\xxx\" & objVBComponent.Name & strType
End With
Next
End Sub
Das klappt soweit ganz gut. Gibt es jetzt eine möglichkeit das das makro in der zeile :
Set objWorkbook = Workbooks("xxx.xlsm")
auf jede datei die geöffnet ist zu reagieren, damit ich nicht in jeder datei den eintrag ändern muss.
Ich wollte das makro in meiner personal.xlsb datei ablegen, um sofort darauf zurück greifen zu können.
danke im voraus.
Udo