如何合并多个工作簿的多个表格

Rafaelael

如何合并多个工作簿的多个表格

有4地

1. Sub CombineWorkbooks()
   
2. Dim FilesToOpen, ft
   
3. Dim x As Integer
   
4. Application.ScreenUpdating = False
   
5. On Error GoTo errhandler
   
6. FilesToOpen = Application.GetOpenFilename _
   
7. (FileFilter:="Micrsofe Excel文件(*.xlsx), *.xls", _
   
8. MultiSelect:=True, Title:="要合并的文件")
   
9. If TypeName(FilesToOpen) = "boolean" Then
   
10. MsgBox "没有选定文件"
    
11. 'GoTo errhandler
    
12. End If
    
13. x = 1
    
14. While x <= UBound(FilesToOpen)
    
15. Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
    
16. wk.Sheets().Move after:=ThisWorkbook.Sheets _
    
17. (ThisWorkbook.Sheets.Count)
    
18. x = x + 1
    
19. Wend
    
20. MsgBox "合并成功完成！"
    
21. errhandler:
    
22. ' MsgBox Err.Description
    
23. 'Resume errhandler
    
24. End Sub

复制代码

lsc900707

你是要对应表合并还是合并一表呢？还有你的表头并不一致。

lsc900707

表的格式统一后合并对应日期的。
请核对结果。

lsc900707

这是汇总全部内容的。请核对测试结果。

Rafaelael

有4地 发表于 2016-7-24 20:56

感谢前辈指点，还有个问题，可以把这些数据汇总为一个sheet的表格吗？

Rafaelael

lsc900707 发表于 2016-7-25 00:10
这是汇总全部内容的。请核对测试结果。

感谢前辈指点，请问这个代码可以提取吗？以为还有其他月份的需要汇总，谢谢您的解答

lsc900707

Rafaelael 发表于 2016-7-25 11:11
感谢前辈指点，请问这个代码可以提取吗？以为还有其他月份的需要汇总，谢谢您的解答

可以，自己试试！

shearing2016

回家慢慢啃，也做个记号。。。。

LMY123

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