Макрос Excel 2010 VBA для изменения содержимого модуля в другом файле
Я разработал макрос для массового обновления файлов в папке. Я использую следующий код, который отлично работает, однако часть сценария Edit требует изменений в модуле VBA в каждом из файлов, чтобы изменения в макросе редактирования вызова работали. Как я могу также массово обновить содержимое модуля при выполнении массового обновления файла.
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