投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

年底汇总套路多：文件太多不好管理？vba从工作簿获取工作表名称

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 124

临近年终老板又要查看报表，一个个的翻找却很麻烦？今天简单几步教你快速汇总文件名称并创建目录管理：

一、vba从文件夹中获取工作簿名称

Sub lianjie()

从文件夹中提取工作簿名称

Dim str As String

Dim path As String

path = “C:\Users\Administrator\Desktop\链接\”

Dim i As Integer

str = Dir(path & “*.*”)

For i = 2 To 100

Sheet2.Range(“a” & i) = str

Sheet2.Range(“b” & i).Hyperlinks.Add anchor:=Sheet2.Range(“b” & i), Address:=path & str

str = Dir

If str = “” Then

Exit For

End If

Next

End Sub

年底汇总套路多：文件太多不好管理？vba从工作簿获取工作表名称插图1

二、vba从工作簿获取工作表名称

学习VBA的过程：录，改，写

Sub 创建目录()

Application.Calculation = xlCalculationManual

Sheets(1).Name = “提取表名创建连接”

Range(“a1”) = “目录”

For i = 2 To Sheets.Count

Cells(i, 1) = Sheets(i).Name

Sheets(1).Hyperlinks.Add Cells(i, 1), “#” & Sheets(i).Name & “!a1”

Next

Application.Calculation = xlCalculationAutomatic

End Sub

年底汇总套路多：文件太多不好管理？vba从工作簿获取工作表名称插图3

三、powerquer从多级文件夹下获取工作簿目录

点击数据——获取数据（新建查询）——从文件夹下——找到需要创建连接的文件夹——编辑——只保留Folder Path和Name字段——添加列，将这两个字段连接起来——加载到Excel中

在d列中添加公式=HYPERLINK([@合并],”打开”)

年底汇总套路多：文件太多不好管理？vba从工作簿获取工作表名称插图5

无论哪种方法只要适合自己才是最重要的，如果你觉得我的分享有用，欢迎转发给你需要的朋友吧！

你还在手动添加Word文档目录吗？2分钟完成1000页目录生成

获取文件目录，我们是认真的

Excel制作目录：从多级文件夹中获取名称，并创建链接

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/4333.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2023年10月13日 pm2:11
下一篇 2023年10月14日 am9:10

相关推荐

发表回复

登录后才能评论