VBA将多个文件中的数据复制到1个文件中[重复]

Question

这个问题在这里已有答案：

• Loop through files in a folder using VBA? 6个答案

我希望循环遍历给定文件夹中的excel文件（这些文件在早上更新）并将数据提取到新的excel文件中并保存。

平均有大约10个文件来复制数据。

我的问题是：循环代码是什么样的？任何帮助将不胜感激，让我开始朝着正确的方向前进。这是为了工作，只是试图改进流程。

Answer 1

Sub Combine_workbooks()
Path = "C:\Users\PChen\Desktop\Test\"
FileName = Dir(Path & "*.xlsx")
Workbooks.Add
  Do While FileName <> ""
  Workbooks.Open FileName:=Path & FileName, ReadOnly:=True
  Call AuthOpenAll
  Worksheets("Data").Activate
  Worksheets("Data").Copy After:=Workbooks("book1").Worksheets("sheet1")
     Workbooks(FileName).Close savechanges:=False
     FileName = Dir()
  Loop
End Sub

}