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

Question

我希望遍历给定文件夹中的 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

}