Question

请大神帮忙把这个合并目录下所有工作薄的VBA代码给个注释！谢谢

Sub 合并当前目录下所有工作簿的全部工作表()
Dim mypath, myname, wbn, box As String
Dim wb As Workbook
Dim g, num As Long

Application.ScreenUpdating = False
mypath = ActiveWorkbook.Path
myname = Dir(mypath & "\" & "*.xls")
num = 0
Do While myname <> ""
If myname <> ActiveWorkbook.Name Then
Set wb = Workbooks.Open(mypath & "\" & myname)
num = num 1
With Workbooks(1).ActiveSheet
.Cells(.Range("a1048576").End(xlUp).Row 2, 1) = myname

For g = 1 To Sheets.Count
wb.Sheets(g).UsedRange.Copy .Cells(.Range("a1048576").End(xlUp).Row 1, 1)
Next
wbn = wbn & Chr(13) & wb.Name
wb.Close False
End With
End If
myname = Dir
Loop
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "主人，小千共合并了" & num & "个工作薄下的全部工作表：" & Chr(13) & wbn, vbInformation, "提示"
End Sub

Answer 1

.Cells(.Range("a1048576").End(xlUp).Row 2, 1) = myname
这个是病句吧。
num = num 1
wb.Sheets(g).UsedRange.Copy .Cells(.Range("a1048576").End(xlUp).Row 1, 1)
都是病句。

追问

不是病句啊！确实合并成功了

追答

.Cells(.Range("a1048576").End(xlUp).Row+2, 1) = myname
这样才不是病句

Sub 合并当前目录下所有工作簿的全部工作表()
Dim mypath, myname, wbn, box As String
Dim wb As Workbook
Dim g, num As Long

Application.ScreenUpdating = False
mypath = ActiveWorkbook.Path
myname = Dir(mypath

Sub 合并当前目录下所有工作簿的全部工作表()
Dim mypath, myname, wbn, box As String
Dim wb As Workbook
Dim g, num As Long

Application.ScreenUpdating = False'关闭屏幕更新
mypath = ActiveWorkbook.Path'获的合并到的那张工作簿的路径，这里也就是说你合并的表，和被合并的表都在一个目录下
myname = Dir(mypath & "\" & "*.xls")'取的当前路径的第一个后缀为xls文件的名字
num = 0
Do While myname "" '只要文件名字不等于空就继续运行
If myname ActiveWorkbook.Name Then '如果当前名字不等于活动表（就是合并到的那张表）的名字
Set wb = Workbooks.Open(mypath & "\" & myname)'打开这个准备合并的表
num = num+1'统计合并的表数
With Workbooks(1).ActiveSheet'这里也是合并到的那张表，其实我感觉这里写的不好。比如你要合并到的地方工作簿叫book001，表就是这个工作簿的第一张表，不如这样with workbooks("book001").sheets(1)
.Cells(.Range("a1048576").End(xlUp).Row+2, 1) = myname'这里就是用一个空单元格来保存工作簿的名字，这个空单元格，就是当你选中a列最后一个单元格，按键盘的end+上的到的那个单元格,(row+2)就代表还要下移2格

For g = 1 To Sheets.Count'遍历工作簿的所有工作表
wb.Sheets(g).UsedRange.Copy .Cells(.Range("a1048576").End(xlUp).Row+1, 1)'拷贝每张工作表用过的区域,拷贝到以一个空单元格开始的位置，这儿空单元格和上面一样，只是行号+1，下移一格。
Next
wbn = wbn & Chr(13) & wb.Name'的到所有合并的表的名字,并且的到一个名字,就换一行.
wb.Close False'关闭工作簿,false的意思是在关闭工作簿的时候没有警告.
End With
End If
myname = Dir'不带参数的dir会继续查找当前目录下后缀为xls的文件,当没有xls的文件的时候返回空字符串，也就是上面dowhile语句的判断只要不为空就继续合并。
Loop
Range("a1").Select
Application.ScreenUpdating = True'开启屏幕更新
MsgBox "主人，小千共合并了" & num & "个工作薄下的全部工作表：" & Chr(13) & wbn, vbInformation, "提示"
End Sub