合并当前目录下所有工作簿的全部工作表

简介: 学习合并当前目录下所有工作簿的全部工作表。

合并当前目录下所有工作簿的全部工作表


以2003Excel版本为例:

微信图片_20221010223050.jpg




1.      在当前目录下新建一个空的Excel:如2017-1-2


2.      打开2017-1-2Excel文件,alt+F11 进入VB代码编辑器


3.      例:将以下代码粘贴到编辑器thisworkbook中


   Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" &"*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\"& MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1)= Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:"& Chr(13) & WbN, vbInformation, "提示"
End Sub


微信图片_20221010223104.jpg



4.       关闭vb编辑器 alt+F8 调出宏工具,选中刚才创建的,点击“执行”

微信图片_20221010223115.jpg


5. 完美:2017-1,2017-2就合并好了


微信图片_20221010223149.jpg



目录
相关文章
|
10月前
|
Python
批量将不同的工作簿合并到同一个Excel文件
本文介绍如何使用Python的`pandas`库批量合并不同工作簿至同一Excel文件。通过模拟生成三个班级的成绩数据,分别保存为Excel文件,再将这些文件合并成一个包含所有班级成绩的总成绩单。步骤包括安装必要库、生成数据、保存与合并工作簿。
248 6
|
3月前
|
数据可视化 开发者
中小型研发团队一样适用:轻量级研发流程整合工具使用策略解析
研发流程整合工具通过统一任务、文档、代码等流程节点,提升团队协作效率,解决沟通碎片化、任务模糊等问题,实现可视化管理与自动化协作,助力团队从“人力推动”转向“系统驱动”。
|
机器学习/深度学习 算法 数据可视化
机器学习模型中特征贡献度分析:预测贡献与错误贡献
本文将探讨特征重要性与特征有效性之间的关系,并引入两个关键概念:预测贡献度和错误贡献度。
926 3
|
消息中间件 Java Kafka
docker安装kafka(wurstmeister)
docker安装kafka(wurstmeister)
710 0
|
存储 编解码 固态存储
一文带你了解时下最新的目标检测模型——YOLOv8
Ultralytics YOLOv8: State-of-the-Art YOLO Models,作者:Sovit Rath
2249 0
|
Oracle 关系型数据库 存储
oracle 发送邮件
--确定是否安装了utl_mail,如果没有用下面的语句安装utl_mail @?/rdbms/admin/utlmail.
1529 0
|
7天前
|
存储 关系型数据库 分布式数据库
PostgreSQL 18 发布,快来 PolarDB 尝鲜!
PostgreSQL 18 发布,PolarDB for PostgreSQL 全面兼容。新版本支持异步I/O、UUIDv7、虚拟生成列、逻辑复制增强及OAuth认证,显著提升性能与安全。PolarDB-PG 18 支持存算分离架构,融合海量弹性存储与极致计算性能,搭配丰富插件生态,为企业提供高效、稳定、灵活的云数据库解决方案,助力企业数字化转型如虎添翼!