Excel 2010 VBA-Makro zum Ändern des Inhalts eines Moduls in einer anderen Datei
Ich habe ein Makro für die Massenaktualisierung von Dateien an einem Dateispeicherort entwickelt. Ich verwende den folgenden Code, der perfekt funktioniert, aber der Teil Bearbeiten des Skripts erfordert Änderungen in einem VBA-Modul in jeder der Dateien, damit die Änderungen im Aufrufbearbeitungsmakro funktionieren. Wie kann ich auch den Modulinhalt beim Durchführen des Massendateiaktualisierens massenweise aktualisieren?
Sub Auto_open_change()
Dim WrkBook As Workbook
Dim StrFileName As String
Dim FileLocnStr As String
Dim LAARNmeWrkbk As String
PERNmeWrkbk = ThisWorkbook.Name
FileLocnStr = "C:\Users\gornalla\Desktop\PER Update" 'ThisWorkbook.Path
Dim StrFile As String
StrFile = Dir(FileLocnStr & "\*.xlsm")
Do While Len(StrFile) > 0
DoStuff (FileLocnStr & "\" & StrFile)
StrFile = Dir
Loop
End Sub
Private Sub DoStuff(StrFileName)
Workbooks.Open (StrFileName)
'Workbooks(StrFileName).Activate
ActiveSheet.Unprotect ("147258369")
Sheets("Property Evaluation Report").Select
ActiveSheet.Unprotect ("147258369")
Call Edit
ActiveWorkbook.RefreshAll
Sheets("Property Evaluation Report").Select
ActiveSheet.Protect Password:="147258369", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True
ActiveWorkbook.Close
Application.SendKeys ("Enter")
End Sub