如何逐个打开所有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对象,您可以使用该对象运行宏.

.Close()此Workbook对象的方法关闭工作簿.您可以使用它.Close(SaveChanges:=True)来保存更改,.Close(SaveChanges:=False)放弃更改或省略参数以让用户决定.