Sub合并()
"将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中
DimMyPath$,MyName$,shAsWorksheet,AbRcou%
Application.ScreenUpdating=FalseSet
Setsh=ThisWorkbook.Sheets(1)
MyPath=ThisWorkbook.Path&"\"
MyName=Dir(MyPath&"*.xls")
[a1].CurrentRegion.Offset(1).Clear
DoWhileMyName<>""
IfMyName<>ThisWorkbook.NameThen
WithGetObject(MyPath&MyName)
AbRcou=sh.Cells(Rows.Count,1).End(xlUp).Row
Workbooks(MyName).Worksheets(1).[a1].CurrentRegion.Offset(IIf(AbRcou=1,0,1)).Copysh.Cells(1,1).Offset(IIf(AbRcou=1,0,AbRcou))
.CloseFalse
EndWith
EndIf
MyName=Dir
Loop
Application.ScreenUpdating=True
MsgBox"ok"
EndSub
将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中
