如何将多个表格中的不同SHEET页汇总到一个工作表的不同SHEET页中

中国傲慢

如何将多个表格中的不同SHEET页汇总到一个工作表的不同SHEET页中，根据多个表格中的多个页的名称，在汇总的表格中生成相应名称的sheet页

中国傲慢

请老师帮忙看看如何汇总，谢谢

洋务德雷

最好写一些模拟数据，才能看懂意思。才可以帮你解决。

3190496160

Sub 按钮1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ww = ThisWorkbook
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
For Each sh In Sheets
    If sh.Index > 1 Then
        sh.Delete
    End If
Next sh
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & f, 0)
        For Each sht In wb.Worksheets
            sht.Copy after:=ww.Worksheets(ww.Worksheets.Count)
            ww.Worksheets(ww.Worksheets.Count).Name = sht.Name
        Next sht
        wb.Close False
    End If
f = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

111.rar (49.37 KB, 下载次数: 7)

2024-10-15 14:56 上传

点击文件名下载附件

z865593849

反正我是 看不懂

中国傲慢

3190496160 发表于 2024-10-15 14:56

谢谢老师，非常完美

中国傲慢

洋务德雷 发表于 2024-10-15 14:29
最好写一些模拟数据，才能看懂意思。才可以帮你解决。

谢谢，已经解决了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。