excel 多个文件 提取

Question

工作需要,我现在有大约一百多个EXCEL文件,现在需要把每个EXCEL文件里的第六张表里的A1,G300这个区域提取出来,全部汇总在一个EXCEL里的,每个提取出来的区域,在汇总的EXCEL里分别建立一张表,并以原来的EXCEL文件命名.

Answer 1

首先，将你那100个文件统一放在一个文件夹里，比如c:\temp，在temp文件夹里新建一个批处理文件1.bat，内容只有一行“dir *.xls > 1.txt”。
运行1.bat，这时temp里就会有一个1.txt的文件产生，里面是你所有的需要处理的文件名。
新建一个excel文件，将1.txt中的文件名列表拷贝贴到sheet1的A列。打开vba编辑器，插入一个模块，贴入下面的代码，注意修正参数：

Sub BatchWork()
Dim TempFileName As String
Dim AWorkBook As String
Sheets("sheet1").Select
AWorkBook = ActiveWorkbook.Name

For i = 1 To 100 '100要换成实际的文件数量
Range("A" & i).Select
TempFileName = ActiveCell.Text
Workbooks.Open Filename:="C:\Temp\" & TempFileName 'C:\Temp\ 要换成你的文件存储位置
Windows(TempFileName).Activate
Sheets("Sheet6").Select 'sheet6要换成你的第6张表的名字
Range("A1:G300").Select
Selection.Copy
Windows(AWorkBook).Activate
Sheets("Sheet1").Select
Sheets.Add
ActiveSheet.Name = TempFileName
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(TempFileName).Activate
ActiveWindow.Close (0)
Sheets("Sheet1").Select
Next i

End Sub

我在我的机器上试过可以用的，行不行就看你的操作了

Answer 2

楼上高手，建议楼主试试看。：）