将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中

[dldd7]

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

[bamboo0088]

你是分享方法？还是求教问题？这个东西不难的

[风飒飒]

很好用，终于找到了，适合每个EXCEL表里面都有几个sheet，但是要合并第一个sheet。

[ 魏印 ²⁰¹9]

使用VBA还要敲代码，为什么不用 自带的Query 呢？新手也可以很快掌握。