[已解决]如何把表格的名称汇总到一个表中

531tommy

如何把表格中的不同表格汇总到一个表格中，在第一例中是表格的名字？


Sub 汇总()
Application.ScreenUpdating = False '防止屏幕闪烁
Dim wb As Excel.Workbook '定义变量
Sheet1.Rows("2:60000") = "" '清除原数据
f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录,可以适应不同版本
Do While f <> "" '在目录中循环
If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '依次打开目录工作薄

wb.Worksheets(1).UsedRange.Offset(0).Copy ThisWorkbook.Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) '拷贝数据

ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(wb.Worksheets(1).UsedRange.Rows.Count, 1) = Split(wb.Name, ".")(0)  '文件名称
    wb.Close False '关闭打开的工作薄
    End If
    f = Dir '寻找下一个文件
    Loop '结束循环
    Application.ScreenUpdating = True '
End Sub


汇总测试.zip (69.01 KB, 下载次数: 3)

2021-12-4 12:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cui26896

2021-12-4 20:31

请参考附件
汇总测试.zip (71.02 KB, 下载次数: 15)

2021-12-4 20:31 上传

点击文件名下载附件

跳转到最佳答案楼层

cui26896

请参考附件
汇总测试.zip (71.02 KB, 下载次数: 15)

2021-12-4 20:31 上传

点击文件名下载附件

531tommy

cui26896 发表于 2021-12-4 20:31
请参考附件

十分感谢。