Question

EXCEL怎样合并多少工作薄？

我在网上找过代码了，可是还是不行，求详细的过程。

Answer 1

批量合并多个工作簿，用宏代码实现较好，建一个文件夹，取名：分表，打开一个工作表，ALT+F11，将以下代码拷贝至模块中。

Sub 合并数据()
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path & "\分表\" '把文件路径定义给变量

myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
For i = 1 To AK.Sheets.Count
aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1

'AK.Sheets(i).Select
AK.Sheets(i).Range("A2:N" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow) '取得第3行以后的数据,从A到N列
Next
Workbooks(myFile).Close False '关闭源工作簿,并不作修改
End If
myFile = Dir '找寻下一个*.xls文件
Loop

Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "汇总完成，请查看！", 64, "提示"

End Sub

追问

上面的代码直接复制吗？

追答

是的，你会创建宏吗？

追问

就是右击第一个工作表，然后点击查看代码，它会弹一个东西出来的，是不是就是这样子吖？但是好像还是不行。。

追答

是的，你会创建宏吗？
方法一
工具——宏——在宏名中输入“合并数据”——编辑中将代码粘贴
方法二
插入模块——右键单击模块——查看代码——粘贴
注意要点：
被合并的工作表格式要统一，该代码可以合并大量工作簿，需要合并的工作簿要存放在“分表”文件夹下

追问

我最后点击运行那个什么的，它提示汇总完成，请查看。但是我的那几个工作薄好像却没有合成一个啊。。

追答

该宏代码是经过我多次测试过的，我有说到注意要点，被合并的工作表格式要统一，要注意路径，例如在D盘根目录下建一个“分表”文件夹，然后，在D盘根目录下新建一个工作表，将宏代码拷入到模块中

Answer 2

我给你一个例子
Sub 汇总各车间工资表()
Dim lj, dirname, nm
Dim a, i As Long
Dim S As String

S = "车间工资表汇总"

For i = 1 To Sheets.Count
If S = Sheets(i).Name Then
MsgBox "该名称的工作表已经存在！", vbCritical, "警告"
'Exit Sub
GoTo 40
End If
Next i

ThisWorkbook.Unprotect
Sheets.Add Before:=Worksheets(Worksheets.Count - 1)
ThisWorkbook.Unprotect
ActiveSheet.Name = S
ThisWorkbook.Protect Structure:=True

40 Application.ScreenUpdating = False

lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\车间工资表\*.xls")
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open FileName:=lj & "\车间工资表\" & dirname
a = Sheets.Count '读当前工作薄中的所有的工作表
Workbooks(nm).Activate
For i = 1 To a
Workbooks(dirname).Sheets(i).UsedRange.Copy Range("a65536").End(xlUp).Offset(1, 0) '复制新打开的工作簿的第一个工作表的已用区域到rng
Next i
Workbooks(dirname).Close False
End If
dirname = Dir
Loop

MsgBox "各车间工资表汇总完毕!"
End Sub

追问

还是看不明白怎样搞。。

Answer 3

我是用下面的代码合并工作簿的，可以试一下：

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

追问

还是不知道怎样搞啊

追答

打开你的一个ECXEL，按ALT+F11，把上面的代码复制到模块中去，按F5运行，再选择你要合并的工作簿所在路径即可。