新人求助！！关于工作簿合并的问题，求大佬看看

lies0101

我现在有个需求就是要把文件夹里面所有的工作簿的内容都放在一个工作簿里面，每个工作簿还有一些数量不等的sheet，现在有个代码能做到合并到一起，但是相同名字的sheet没有合并而是新建了个sheet，有没有大佬帮我看看怎么改？先谢谢大佬了
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer

Application.ScreenUpdating = False
On Error GoTo errhandler

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

MsgBox "合并成功完成！"

errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
附上附件了，大佬们看看吧，拜托了

cjc209

你是说同名表合并成一个单独的sheet吗？还是不管什么名字的sheet都合在一个表里？

cjc209

不同的情况 处理方式不同 你要说明白

lies0101

cjc209 发表于 2018-10-2 16:17
不同的情况 处理方式不同 你要说明白

我举个例子吧：现在有工作簿1、2和3，工作簿1里面有sheet1，sheet2；工作簿2里面有sheet1；工作簿3里面有sheet1，sheet2，sheet3；我需要整合后得到一个工作簿，里面是sheet1（里面的内容是工作簿1的sheet1、工作簿2的sheet1和工作簿3的sheet1），sheet2（内容是工作簿1的sheet1、工作簿3的sheet2），sheet3（内容是工作簿3的sheet3）。这样举例可以吗？

abc123281

没有附件都是空谈

lies0101

abc123281 发表于 2018-10-2 20:45
没有附件都是空谈

大佬，我附上附件了

xiangbaoan

……仅供参考、测试……

cjc209

lies0101 发表于 2018-10-2 16:23
我举个例子吧：现在有工作簿1、2和3，工作簿1里面有sheet1，sheet2；工作簿2里面有sheet1；工作簿3里面有 ...

sheet2（内容是工作簿1的sheet1、工作簿3的sheet2） 应该是sheet2（内容是工作簿1的sheet2、工作簿3的sheet2） 也就是说同名工作表合并成型的sheet吧？

lsc900707

这个代码仅仅是工作簿全部工作表的归集，你要的是同名工作表合并。

lies0101

cjc209 发表于 2018-10-3 17:50
sheet2（内容是工作簿1的sheet1、工作簿3的sheet2） 应该是sheet2（内容是工作簿1的sheet2、工作簿3的she ...

是的，大佬帮忙看看？