EXCEL使用VBA汇总多个表格

EXCEL使用VBA来汇总多个EXCEL表格代码

Sub HuiZong()
Dim myfile, mypath, wb               '声明变量
Application.ScreenUpdating = False   '关闭屏幕更新
Sheet1.UsedRange.Offset(1, 0).Clear  '清除除表头之外的所有内容
mypath = ThisWorkbook.Path           '找到当前工作簿的路径
myfile = Dir(mypath & "\*.xls*")     '遍历当前文件夹下的Excel文件
Do While myfile <> ""                '当找到的文件不为空时
If myfile <> ThisWorkbook.Name Then   '当找到的文件不是当前Excel工作簿时
Set wb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容,设为wb
With wb.Sheets(1)              '对找到的工作簿的sheet1进行操作
'复制wb的sheet1除第一行的所有内容
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With
wb.Close False      '关闭wb工作簿且不保存
End If
myfile = Dir          '寻找下一个Excel工作簿
Loop
Application.ScreenUpdating = True   '恢复屏幕更新
End Sub

添加新评论

  经典站点

MSDN,我告诉你

--- updated on 2019-02-04

  关于博主

肥宅快乐~

  近期评论

  •  TIGRE: 求config.plist!同Miix4用户,感谢🙏
  •  李飞: 博主 你好 可否发下完整的详细步骤,小白一个,谢谢!
  •  xuzhimin1993: 那么,能正确显示电量吗
  •  fowse: 赞,完美解决方案。
  •  超平和buster: 强啊,但是无网络就很难受OωO
  •  崔先森: 第二种方法简单粗暴~
  •  heiye37: 下载地址哪里有呢1

要铭记在心:每天都是一年中最美好的日子。

生活远没有咖啡那么苦涩,关键是喝它的人怎么品味!每个人都喜欢和向往随心所欲的生活,殊不知随心所欲根本不是生活。

如果错过了太阳时你流泪了,那么你也要错过群星了。

不如意的时候不要尽往悲伤里钻,想想有笑声的日子吧。

我不明白为什么要那么在意别人的看法,评头论足只是无聊人的消遣,何必看得如临大敌。如果你不吃别人家的饭,就别太把别人的话放在心上。