将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中
dldd7 2017-08-07 12:50:35 Sub 合并()
'将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中
Dim MyPath$, MyName$, sh As Worksheet,AbRcou%
Application.ScreenUpdating = FalseSet
Set sh = ThisWorkbook.Sheets(1)
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
[a1].CurrentRegion.Offset(1).Clear
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
AbRcou = sh.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(MyName).Worksheets(1).[a1].CurrentRegion.Offset(IIf(AbRcou = 1, 0, 1)).Copy sh.Cells(1, 1).Offset(IIf(AbRcou = 1, 0, AbRcou))
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub