vba合并一个文件夹下多张excel表数据

[Blue Answer]

有两个文件，命名为A和B


目的：想用VBA代码将A、B两个文件夹下的文件分别合并汇总到一个excel工作簿的A、B工作表下



以下是为汇总A文件夹下的文件编写的代码

Sub 汇总A()

Dim myfile, mypath, wb               '声明变量
Application.ScreenUpdating = False   '关闭屏幕更新
Sheet1.UsedRange.Offset(1, 0).Clear  '清除除表头之外的所有内容
mypath = "A的路径"           '找到当前工作簿的路径"
myfile = Dir(mypath & "\*.xlsx*")     '遍历当前文件夹下的Excel文件
Do While myfile <> ""                '当找到的文件不为空时
If myfile <> ThisWorkbook.Name Then   '当找到的文件不是当前Excel工作簿时
Set wb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容，设为wb
With wb.Sheets(1)             '对找到的工作簿的sheet1进行操作
'复制wb的sheet1除第一行的所有内容
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With

wb.Close False      '关闭wb工作簿且不保存
End If
myfile = Dir          '寻找下一个Excel工作簿
Loop
Application.ScreenUpdating = True   '恢复屏幕更新

End Sub

求大神帮忙解答一下该如何改代码

[vansoft]

循环一个个打开，复制全部内容出来。