excel自动提取文件夹中的数据

一个文件夹中有50个EXCEL文件，我需要提取每个EXCEL文件中的 Sheet2 A1:J9 数据到一个新的EXCEL文件，文件夹路径是E:\下单(2)\A11\D11\送货单 请高人帮忙，做一个啥VBA模板！万分感谢！

刚回答过一个，就把答案复制过来了。如果表格格式一模一样，只是数据不同，你要合计的话就用sum函数，比如以sheet!5为汇总表，则a1=sum(sheet1!a1+sheet2!a1+sheet3!a1+sheet4!a1)然后下拉，关键是要求你的各张表格的格式，数据位置要调整到同步。如果不是这样的话，说详细点

Set THISSHEET = ActiveSheet MYPATH = "E:\下单(2)\A11\D11\送货单" XLSFILE = Dir(MYPATH & "*.XLSX") '你的excel文件如果是xls后缀，改成*.xls While XLSFILE <> "" Application.ScreenUpdating = False Application.ShowWindowsInTaskbar = False With Workbooks.Open(MYPATH & XLSFILE) THISSHEET.Range("A" & (THISSHEET.[A1048576].End(xlUp).Row + 1)) = XLSFILE ‘如果不需要在导入数据前面显示来自那个excel文件的话，这行可以删除 .Sheets("SHEET2").[A1:J9].Copy THISSHEET.Range("A" & (THISSHEET.[A1048576].End(xlUp).Row + 1)) .Close End With Application.ShowWindowsInTaskbar = True Application.ScreenUpdating = True XLSFILE = Dir Wend