如何将包含多个工作表的工作簿合并成一个工作簿

LMY123

同名工作表合并成一薄多表

前进者

标记一下，以便学习查看！

jizewei

刚好遇到这个问题，谢谢了！

cai2532

关注此贴，希望受用。

marychin1981

学习了，感谢老师们！

marychin1981

liulang0808 发表于 2014-10-9 08:46
http://club.excelhome.net/blog-238368-1694.html
遍历各个工作薄及其表，然后看具体怎么合并吧
上面的 ...

老师，你太厉害啦

ykcbf1100

练习一下，多文件多表原格式合并

ykcbf1100

多文件多表原格式合并

1. Sub ykcbf()  '//2025.1.15  原格式合并
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set ws = ThisWorkbook
   
6.     p = ws.Path & ""
   
7.     Dim tm: tm = Timer
   
8.     For Each f In fso.GetFolder(p).Files
   
9.         If LCase$(f.Name) Like "*.xls*" Then
   
10.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
11.                 fn = fso.GetBaseName(f)
    
12.                 m = m + 1
    
13.                 Set wb = Workbooks.Open(f, 0)
    
14.                 For Each sht In wb.Sheets
    
15.                     If sht.Visible = -1 Then
    
16.                         If m = 1 Then
    
17.                             sht.Cells.Copy ws.Sheets(sht.Name).[a1]
    
18.                         Else
    
19.                             ws.Sheets(sht.Name).Rows(m + 5).Insert Shift:=xlDown
    
20.                             sht.Rows(6).Copy ws.Sheets(sht.Name).Rows(m + 5)
    
21.                         End If
    
22.                     End If
    
23.                 Next
    
24.                 wb.Close False
    
25.             End If
    
26.         End If
    
27.     Next f
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "共用时：" & Format(Timer - tm, "0.00") & "秒！"
    
30. End Sub
    

复制代码