58问答库 > 我在VBA程序里实现对同一个文件夹下的多个excel文件只运行一次宏，如何自动实现。

我在VBA程序里实现对同一个文件夹下的多个excel文件只运行一次宏，如何自动实现。

2024-11-05 09:10:25

推荐回答（1个）

回答（1）：

Sub copyall()
For i = 1 To 5 '把这个数字改成你的文件总数
   Set excel_Book = Workbooks.Open("E:\excel\" & i &".xlsx") '地址写作"E:\xxx\xxx\"保留英文双引号
   Set excel_Sheet = excel_Book.Worksheets("Sheet1")
   '这里调用你的sub
   Call 文件
Next
Set excel_Sheet = Nothing
Set excel_Book = Nothing
End Sub