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

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
...全文
1799 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
使用VBA还要敲代码,为什么不用 自带的Query 呢?新手也可以很快掌握。
风飒飒 2019-08-16
  • 打赏
  • 举报
回复
很好用,终于找到了,适合每个EXCEL表里面都有几个sheet,但是要合并第一个sheet。
bamboo0088 2017-12-25
  • 打赏
  • 举报
回复
你是分享方法?还是求教问题?这个东西不难的

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧