Question

怎么将多个一个文件夹中的多个EXCEL工作薄中的工作表合并成一个工作薄的工作表,求解???

Sub 合并工作薄()
　　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
这个是合并多个工作薄的方法
Sub 合表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
这个是将一个工作薄里面的多个工作表合并成一个工作表,有什么方法能将两者直接联系起来,不用经过两道程序

Answer 1

　　将多个一个文件夹中的多个EXCEL工作薄中的工作表合并成一个工作薄的工作表方法，以EXCEL2013为例：

　　1.  打开所有要合并的工作薄。比如有A,B,C三个工作薄，要将C,B并入A，打开这三个。

　　2.  选定C工作薄为当前窗口，右击左下角的工作表名，弹出菜单选择“移动或复制”。

　　　　

　　3.  在工作薄下的选择框中点击选择目标工作薄，点击选择A。点击确定。

　　　

　　4.  这样C工作薄就并入了A工作薄中。这时C工作薄窗口会自动关闭。

　　5.  接着点击B工作薄，按2-3的步骤操作。

　　6.  这样所有工作薄就会合并到A工作薄中。点击A工作薄就可以看到B.C工作表。

　　

　　

Answer 2

这个问题用公式可能不容易实现，应该要用到VBA. 我的思路是先判断出一个文件夹里有多少个文件，然后利用循环语句再逐个打开，拷出需要用的表格后再关闭。本人用此方法统计过一个月的日报表中每天不同项目投入的人日。

Answer 3

右击左下角的表格名称，选择移动或复制工作表选项

选择要移动到的工作簿