我該如何打開所有的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()方法關閉工作簿。您可以使用.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