EXCEL如何使用VBA汇总当前路径下的工作簿的相应的工作表？
发布时间：2023-03-13 14:20:46
一个论坛上的会员有如下的要求：如图需要把当前路径中的财务、采购、工厂、计划、人士等工作簿的“出勤明细”工作表的记录复制汇总在“加班汇总表”工作簿中的“加班原因汇总”工作表中，并需要取出各部门的名称，希望批量使用VBA完成？很久没有玩VBA了，今晚手痒，写了这样一个程序：
A：ALT+F11>>>插入模块>>>模块中输入以下代码：
EXCEL如何使用VBA汇总当前路径下的工作簿的相应的工作表？
Sub test()
Dim WB As Workbook, WS As Worksheet, FN$, Rng As Range, k As Long
Application.ScreenUpdating = False
FN = Dir(ThisWorkbook.Path & "\*.xls*")
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Do While FN <> ""
If FN <> ThisWorkbook.Name Then
Set WB = GetObject(ThisWorkbook.Path & "" & FN)
With WB
For Each WS In .Worksheets
If WS.Name Like "*出勤明细*" Then
With WS
i = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A2:D" & i).Copy
Set Rng = ThisWorkbook.Worksheets("加班原因汇总").Cells(ThisWorkbook.Worksheets("加班原因汇总").Rows.Count, 2).End(xlUp).Offset(1, 0)
With Rng
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteAll
End With
ThisWorkbook.Worksheets("加班原因汇总").Cells(ThisWorkbook.Worksheets("加班原因汇总").Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(i – 1, 1) = Left(WB.Name, Len(WB.Name) – 4)
Application.CutCopyMode = False
End With
End If
Next WS
End With
WB.Close False
End If
FN = Dir
Loop
Application.AutomationSecurity = msoAutomationSecurityByUI
End Sub
0
投稿猜你喜欢
本文我们就以图文的方式来介绍下win7系统如何配置adb环境变量，详细介绍了win7配置adb环境变量的方法本文教程小编分享就是win7系统- Excel中经常需要用到求和函数进行求和，求和函数具体该如何使用呢?接下来是小编为大家带来的excel 求和函数的使用教程，供大家参考。ex
- wps是金山软件公司的一种办公软件，对日常办公起到了重要作用，那么大家对它的一些功能又有多少了解呢?大家在工作中做出数据表格后，有时页数比较
- 当用户卸载Win10电脑的软件时，其实还有很多该软件的信息注册表留在系统中，导致系统变慢变卡，那么这些注册表该如何删除呢？接下来小编就为大家
- wps怎么删除图标？经常使用WPS的同行应该知道，WPS经常出现的弹窗广告很烦人，尤其是急着用软件，却还需要去关闭广告。今天，我就教大家轻松
- 我们在日常工作中，大小会议都需要用到席位牌，也就是人员名单表，一个一个的打印放大非常麻烦，那么如何在WPS文档中方便快捷的制作席位牌呢，一起
- 有时我们打印文档前，要预览一下效果，以免打印出来的效果不能符合我们的效果，而浪费纸张，下面小编教你怎么在excel的工具栏中添加打印预览。e
- 将 PowerPoint 幻灯片上的对象制成动画提高徽标在幻灯片上移动时的可见性。您可创建自己的效果！通过合并两个或更多动画效果，或绘制动作
- 由于订阅了office365，以前的office试用版本，还一直提示让我激活，估计是因为有2个激活码，一个是原来的，一个是订阅的
- Win10的开发不是一个封闭的过程，为了增进用户体验，微软Windows Insider计划向会员推送预览版，而且正式版推出后还会向会员推送
- Win10电脑修复失败且无法进入系统怎么办？当计算机出现故障时，可以使用自动修复来修复系统，但是可能会遇到修复失败且无法进入系统的情况。如果
- 我们在使用word制作表格时，有时会觉得行间距太过紧密或太过宽松了，这时需要进行调整。下面就跟小编一起来看看吧。word表格调整行间距的步骤
- 很多的用户在一定情况下大家都使用屏幕截图，而Windows系统截图工具是大家比较常用的，但有朋友在截图的时候说不能另存图片了，不知道是怎么回
- Win10无法登录战网报错“2413”怎么解决？战网是一款游戏对战平台，很多用户在Win10系统下会遇到战网登录不上去的情况，比如最近一位用
- 在使用2007版excel导入外部数据时，有时会出现这样一段话：“该web查询未返回任何数据。若要更改该查询，请单击‘确定‘，再单击编辑栏上
- 电脑的开机速度可以反应出一台电脑的性能、硬件设备情况等等，大家都希望自己的电脑开机速度快一些，机械硬盘的开机速度一般是30秒左右，固态硬盘1
- Win10系统上安装中文IME时，如何解决CPU占用率过高的问题？现在，越来越多的朋友正在使用WIn10系统。在使用Win10系统的过程中，
- 老电脑如何升级Win11？虽然现在电脑等设备日新月异，不断发展，但是依旧有不少用户还在使用相对较旧的老电脑。随着win11系统推出，很多用户
- 今天小编给大家介绍一款新的软件，那就是番茄打卡，你们晓得番茄打卡怎么使用吗?接下来我们一起往下看看番茄打卡的具体使用方法吧。方法步骤1、进入
- 在word文档中制作语文试卷、编辑教学素材时经常会用到拼音，按拼音标注的位置，一般分为上标拼音和旁标拼音，上标拼音具体该如何添加呢?下面就跟
