Как применить макрос к нескольким файлам в один клик?

Question

[Anastasssiaa]

Есть какой-то макрос . Для примера пусть будет банальный helloworld.

Sub macros3()
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "hello, world!"
    Range("B14").Select
End Sub

Что нужно в него дописать или что сделать, чтобы он применялся к нескольким книгам exel по одному клику (например, горячей клавише, которая была задана для этого макроса)?

Comments

[Akina]

Откуда возьмётся список этих нескольких книг? Все открытые?

for each onebook in application.workbooks

[Anastasssiaa]

Akina, вообще да, но если есть способ без открытия всех файлов, было бы здорово

Answer 1

[Григорий Боев]

Что-то вроде:

Sub ProcessFilesInDirectory()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' Путь к директории
    folderPath = "C:\temp\"
    
    ' Получаем первый файл с расширением .xlsx в директории
    fileName = Dir(folderPath & "*.xlsx")
    
    ' Перебираем все файлы в директории
    Do While fileName <> ""
        ' Открываем файл
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' Вызываем функцию macros3
        Call macros3()
        
        ' Сохраняем и закрываем файл
        wb.Close SaveChanges:=True
        
        ' Получаем следующий файл
        fileName = Dir
    Loop
End Sub

Comments

[h8nor]

В документации не указано, если открываемая книга была открыта ранее (компьютер включен постоянно), то макрос проигногитует открытый ранее файл (не подставит ссылку, не выдаст исключение). Правильно открывать файл макросом нужно так :)

Set wb = Workbooks.Open(folderPath & fileName)
If wb Is Nothing Then
  ' Вывести сообщение о невозможности открытия книги
  Debug.Print "Workbook Is Nothing"
End If