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

添加新评论

  Timeline:又是一天

test

updated on :

  关于博主

一个快乐的肥宅~

  近期评论

  •  www14512: 怎么联系?
  •  czh: 想装台小机子,不带显卡的那种,用4k屏, 可以搞定吗 ,能帮推荐下配置吗? 谢谢
  •  lovenhe: 磁力链接识别到的文件名称是PRO7SP1_X86_ZH-CN_SM、PRO7SP1_X64_Z...
  •  钉钉: 上面明摆着地址你不看
  •  心灵博客: 白苹果我都不想用了,还是win牛逼。哈哈
  •  ccyuhang: efi可以发一下么
  •  FLy: 你好,我的surfacepro4 接的pro3的扩展坞,在黑苹果下面pd口可用,能够识别到显示...
  •  BeiDou: 谢谢,已成功解决。
  •  ud3的博客: 第一种方法没有找到路径啊。CommonMark没有
  •  helloworld: 度盘地址呢

很多东西宁缺毋滥,流星的光芒短暂而灼热闪耀。

让你变得更好的那个人,往往是你觉得很难与之相处的那个人。—— by 小宇

觉得自己做的到和不做的到,其实只在一念之间。

路在自己脚下,没有人可以决定我的方向。

你的选择是做或不做,但不做就永远不会有机会。

凡事顺其自然,遇事处于泰然,得意之时淡然,失意之时坦然,艰辛曲折必然,历尽沧桑悟然。