如何把同一文件夹下多个工作表合并，一表多sheet

qamiao

我想把同一个文件夹下的多个工作表合并到一个工作表中，实现一个表含有多个sheet的功能。
不要看错了，我可不希望全部合到一页（sheet）中。网上有一段代码，我运行了下，不能用，
求高手帮我改写成能用的代码。
Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer
   
On Error GoTo ErrHandler
Application.ScreenUpdating = False

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

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1

Wend
ExitHandler:
    Application.ScreenUpdating = True
      Exit Sub
      
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

jiminyanyan

请上传附件。。。。

peter-chen

附件呢？ 让看看

qamiao

我感觉我讲的已经清楚了，没有附件，意思就是用VBA代替“移动或复制工作表”
我要把同一文件夹下的所有excel工作表移动到一个文档中。
原来“新建资料夹”中A文件（excel文件）有一个工作簿sheet1,B文件有一个工作簿sheet2
C文件有一个工作表sheet3
我要的效果是按一下按钮。在A文件里出现A的sheet1，B的sheet2,C的sheet3

jiminyanyan

有空写一大堆，没空做个附件传上来呀。。。

qamiao

别以为简单，让你合并一个月的日报到一个文档上，你用移动或复制功能。累死你。

jiminyanyan

原帖由 qamiao 于 2011-8-10 21:02 发表
别以为简单，让你合并一个月的日报到一个文档上，你用移动或复制功能。累死你。

1楼的代码应可以的。。

qamiao

是过了，只能打开一个文件夹下资料，无法移动复制到当前excel文档，你不信试试作好了，传给我，谢谢。

jiminyanyan

是不是这样。。。

qamiao

差不多，我要把那两张表合并一张空白的工作表上。