Быстрый способ открыть все файлы в папке, обновить все файлы, сохранить как все файлы

Question

У меня есть 2 разных расположения папок: папка шаблонов, содержащая 40 файлов шаблонов Excel, которые содержат готовые формулы. Эти файлы сохраняются в формате template_2D, template_3D и т. Д., Однако 30 файлов зависят от одного файла, который будет открыт, и называется 'srtData. xslx 'и другие 10 извлекают данные из 30 открытых.

Затем я хочу обновить все (так как все зависят друг от друга), затем я хочу сохранить все 40 файлов в другом месте с их именем без шаблона. например. 2D, 3D ... но в другом месте, а затем закройте все файлы шаблонов, а также эти сохраненные файлы. Таким образом, файлы шаблонов не будут изменены, все, что произойдет, это то, что версия обновления была сохранена в другой папке.

Я очень знаком с VBA, поэтому чуть-чуть с.

Пока все, что у меня есть

 Sub OpenAllWorkbooks()

Dim fldrpath As String

fldrpath = "R:\Sam\"

'Step 1:Declare your variables
Dim MyFiles As String
 'Step 2: Specify a target folder/directory, you may change it.
MyFiles = Dir(fldrpath & "*.xlsx")
Do While MyFiles <> ""
'Step 3: Open Workbooks one by one
Workbooks.Open fldrpath & MyFiles

'Step 4: Next File in the folder/Directory
MyFiles = Dir
Loop

End Sub

Однако я думаю, что, делая это, я не представляю, как сохранить все в другой папке

Answer 1

Это решение, которое я использовал, следуя комментариям выше:

Sub OpenAllWorkbooks()

Dim wb as Workbook
Dim fldrpath As String

fldrpath = "R:\Sam\"

'Step 1:Declare your variables
Dim MyFiles As String
 'Step 2: Specify a target folder/directory, you may change it.
MyFiles = Dir(fldrpath & "*.xlsx")
Do While MyFiles <> ""
'Step 3: Open Workbooks one by one
Set wb = Workbooks.Open (fldrpath & MyFiles)
wb.SaveAs path,fileformat

'Step 4: Next File in the folder/Directory
MyFiles = Dir
Loop

End Sub