как я могу открыть ВСЕ файлы excel один за другим и запустить макрос

Question

Мне нужно написать макрос в VBA, который будет открывать каждый файл в заданном каталоге один за другим и запускать макрос на них.

до сих пор у меня есть что-то вроде

for i = 1 to number_of_files 
    open Dir("C:\yourPath\*.*", vbNormal) 
    call some_macro 
    close file 
next i 

Answer 1

Называя Dir() функции с соответствующим фильтром, например, "c:\folder\*.xls", вы начинаете перечисление и получить первое имя файла.
После этого, повторно называя функцию Dir() без каких-либо параметров, вы получите все имена файлов *.xls, по одному для каждого вызова.

Вы открываете книгу по телефону Workbooks.Open(full_path). Это дает вам объект Workbook, против которого вы можете запустить макрос.

Способ Workbook объекта закрывает книгу. Вы можете использовать .Close(SaveChanges:=True), чтобы сохранить изменения, .Close(SaveChanges:=False), чтобы отменить изменения или опустить параметр, чтобы пользователь решил.

Answer 2

Вот простой способ объект VBA, чтобы сделать это:

Dim fs As FileSearch 
Dim i As Integer 
Dim wbk As Workbook 

Set fs = Application.FileSearch 

With fs 
    .LookIn = ThisWorkbook.Path 
    .FileName = "*.xls" 
    For i = 1 to .Execute() 
     Set wbk = Workbooks.Open(.FoundFiles(i)) 
     ''//RUN MACRO HERE 
     wbk.Close(SaveChanges:=True) 
    Next i 
End With