如何将多个excel表格汇总到一个表格里

来源：百度知道 编辑：UC知道 时间：2024/05/17 22:51:45
怎么能把上百个excel工作薄，汇总到一个新工作薄里？每个工作薄里只有sheet1中有内容，而且ABCDEF...各个列的属性一样，依次都是【资源名称，资源文件名，资源类型，服务类型，所属产品，所属栏目，资源说明，终端名称，计费方式，价格(分)，预览文件，厂商名称，ServiceID，SPID，Logo，文件长度】；但是每个工作表中的行数不确定，最少的6行（不包括表头）最多的有32行。每次大概都有700~1000左右的表格，数据量太大了，手工真是忙不过来的，以前都是用excel汇总专家，可是我现在的工作机破解不了那个工具！！！超级郁闷

用这段代码试下，复制来的,是读入同一目录下的所有工作簿：

Private Sub CommandButton1_Click()
Dim Wk As Workbook, Sht As Worksheet, n As Integer, MyPath, MyName, u As Integer, arr
Application.ScreenUpdating = False
Application.EnableEvents = False
n = 0: M = 0
MyPath = ThisWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
ThisWorkbook.Sheets("sheet1").Columns("A:A").Interior.ColorIndex = 0
Do While MyName <> ""

If MyName <> ThisWorkbook.Name Then
Set Wk = Workbooks.Open(MyPath & "\" & MyName)
M = M + 1
For Each Sht In Wk.Sheets

arr = Sht.UsedRange
If IsArray(arr) = False Then GoTo PP
n = n + 1
With ThisWorkbook.Sheets("sheet1")
u = .UsedRan