合并同一文件夹下的工作簿的第一个工作表到一个新的工作表
1、将需要合并的文件放在一个文件夹下
2、新建一个空白工作簿
3、打开空白工作簿，在第一个空白工作表，右键-查看代码
4、粘贴下面的代码，点击运行，成功后关闭提示框
说明：仅能复制所有工作簿的第一个sheet
代码如下：
Sub 汇总()
Dim p$, f$, sh As Worksheet, m&
Application.ScreenUpdating = False
Set sh = ActiveSheet
Cells.Clear
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls")
Do While f <> ""
If f <> ThisWorkbook.Name Then
m = m + 1
With GetObject(p & f)
If m = 1 Then
.Sheets(1).[a1].CurrentRegion.Copy sh.[a1]
Else
.Sheets(1).[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1)
End If
.Close False
End With
End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub
