我该如何打开所有的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