这篇VBA学习笔记介绍了如何使用VBA将同一文件夹内的多个Excel工作簿合并到一个工作簿中，并且为每个工作簿创建目录超链接。步骤包括复制文件夹中的工作簿名称，复制数据到新工作簿并重命名，以及最后插入超链接。最终结果是将3个独立的工作簿整合成1个带有目录链接的新工作簿。
VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
1、将文件夹中的xlsx文件名复制到新工作簿；
2、将文件夹中的xlsx数据簿中的sheet复制到新表并重命名；
3、插入超链接。
效果如下：
代码执行前,有3个工作簿：
执行后，3个工作簿汇总到1个新的工作簿中，并插入超链接：
代码如下：
Sub 汇总文件夹数据()
'遍历文件夹数据表，并复制表名
Dim file$ 'file是变量
Dim num%
Dim sht As Worksheet
Dim k%
Application.DisplayAlerts = False '当删除sheet时不再弹出弹框
Application.ScreenUpdating = False &
最低0.47元/天 解锁文章
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
