Не получается соединить два макроса в один.
Нужно, чтобы после запуска макроса все файлы excel в папке открывались, пересчитывались и закрывались с сохранением.
макрос №1:
[vba]Код
Sub q1()
Папка = ThisWorkbook.Path & "\"
Имя = Dir(Папка & "*.xls*")
Do While Имя <> ""
If Имя <> ThisWorkbook.Name Then Workbooks.Open Filename:=Папка & Имя
Имя = Dir
Loop
End Sub
[/vba]
макрос №2:
[vba]Код
Sub q2()
' закрываем все книги, кроме текущей (активной), С СОХРАНЕНИЕМ изменений
Dim wb As Workbook: Application.ScreenUpdating = False
For Each wb In Workbooks ' перебираем все открытые книги
If wb.Windows(1).Visible = True And (Not wb Is ActiveWorkbook) Then
' закрываем с сохранением только изменённые файлы
wb.Close (Not wb.Saved) ' ранее сохранённые файлы просто закрываются
End If
Next wb
End Sub
[/vba]