使用VBA生成Excel目录列表

最新推荐文章于 2024-04-27 07:45:00 发布
最新推荐文章于 2024-04-27 07:45:00 发布
阅读量6.2k 收藏 9
点赞数 1
分类专栏： Microsoft Office
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lyjluandy/article/details/8489564
版权
本文介绍如何使用VBA自动生成Excel文档的目录列表。通过编写VBA代码，创建一个‘索引’工作表，并在其中添加按钮，点击即可更新链接到所有其他工作表的索引。
摘要由CSDN通过智能技术生成
一、个人需求

最近使用Excel整理一些术语解释的文档，每个术语都对应一个sheet，最后有个索引页，可以快速链接到指定的sheet。

由于sheet会不断增加，做索引页时需要自动生成。考虑使用VBA实现，由于初次接触VBA，在此留个备份。


二、功能实现


（1）新建“索引”sheet，在此工作表中插入一个“生成索引”的按钮，如下图：




 （2）为此按钮添加事件处理代码，如下&#x

最低0.47元/天 解锁文章
八零后琐话
关注
  • 1
    点赞
  • 踩
  • 9
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
Vba在服务器上生成文件目录,自己编写了一个自动生成目录下文件夹及文件的程序！...
weixin_33810114的博客
08-10 864
Sub AutoWriteRecord()Dim ThisWorkbook As Workbook, ThisWorksheet As WorksheetDim CreatingRange As Range, DataRange As Range, CreatingArray() As VariantDim i As Long, j As Long, k As Long, TotalNum As ...
目录生成器.zip
05-23
另一方面，xls版的目录树生成器可能会使用更复杂的逻辑，可能涉及到VBA（Visual Basic for Applications）编程，通过遍历文件系统对象来构建目录结构，然后将数据写入Excel表格中。Excel表格的优势在于可以提供更好...
sftp get 到指定目录_能跳转的Excel工作表目录
weixin_39620151的博客
12-18 892
随着日常工作中的数据越来越多，有时候同一个工作簿中会有很多工作表，怎样才能简单明了的管理工作表呢？当然能建一个目录最好了，今天咱们就学习一种给工作表创建目录的方法。首先在工作簿中新建一个工作表，命名为“目录”。接下来主要是两个步骤：1、自定义名称单击B1单元格，切换到【公式】选项卡，单击【定义名称】，弹出【新建名称】对话框，在“名称”文本框中输入“目录”，在“引用位置”文本框输入以下公式：=IND...
Python-VBA函数之旅-list函数
ygb_1024的博客
04-27 946
list函数
ExcelVBA 之列表
soga235的博客
06-07 3459
Array函数将列标输入到工作表里: Sub ColumnHeads() Dim heading As Variant Dim cell As Range Dim i As Integer i = 0 heading = Array("First Name", "Last Name", "Position", _ "Salary") Workbooks.Add For Each cell In Range("A1:D1") cell.Formula = heading(i) i = i + 1 Next
excel vba经典代码应用大全_还在手动插入Excel目录？VBA一键生成目录代码送给你...
weixin_39895096的博客
12-24 1277
导读：VBA作为Excel中最厉害的一把利器，但是因为其学习门槛阻挡了很多Excel使用者，今天芒种君给大家分享1个VBA自定义插件，零基础直接套用模板就可以使用了，代码也非常简短。文/芒种学院@指北针（ID：mongjoy）Hi，大家好，这里是芒种学院。这是我们的第3个VBA自定义插件分享，在之前的推文中，我们分享了VBA自动生成报表、快速合并文档的小插件。今天我们来分享一个VBA自动生成目录的...
内置宏列表_Excel VBA 对象模型列表
weixin_33426157的博客
12-31 916
列出了Excel VBA对象模型中所有对象的说明，便于查找应用AboveAverage 对象：表示条件格式规则的高于平均值的视图。 对某一区域或所选内容应用颜色或填充, 以帮助您查看相对于其他单元格的单元格的值。Action 对象：代表要在数据透视表或工作表数据中执行的操作。Actions 对象：指定系列的所有**Action** 对象的集合。AddIn 对象：代表单个加载宏，不论该加载宏是否已加...
Excel VBA数组拓展列表(可以用作数据容器)
qh0526wy的博客
04-18 1813
一、先总结数组的特性 数组转置必须在同过程或同函数内redim 否则报无效 redim； 起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误； 数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原； 如果数组存储了null，则不能被转置，因此在存入空值时需要过滤； 经过多次实验证明：VBA的数组起始标只能以1开始，否则无法转置 二、列表设计思路 利用类模块，当成对象开发； 生成数组是二维数组，每个维度的长度都可以通过参数设置； 通过行标列表添加...
批量抽取目录到excel文件中
最新发布
05-08
例如，每个目录作为一个字典，包含自身的路径和子目录列表。在递归遍历目录时，不断更新这些数据结构。 4. 树形结构展示：在Excel中展示树形结构可能需要一些额外的技巧，如利用条件格式化设置隐藏/显示行，或者...
VBA批量处理csv或其他excel文件数据
08-25
1. **遍历文件夹**：VBA可以使用`MkDir`和`ChDir`函数改变当前工作目录，然后使用`Dir`函数来获取指定目录下的所有文件。通过循环遍历`Dir`返回的文件名，可以处理文件夹中的每一个文件。 2. **打开csv文件**：在...
ExcelVBA列出指定目录及子目录文件
04-10
在Excel VBA中，我们可以利用文件系统对象（FileSystemObject）来遍历指定的目录及其子目录，并将所有文件的信息列出到工作表中。这是一项非常实用的技能，尤其是在需要批量处理或管理大量文件时。以下将详细介绍...
Word-VBA 格式化多级列表和自定义列表
10-19
word vba script for format the muti-level title and single-level level, support the bullet style and number style.
vba动态创建目录索引
01-11
vba动态创建excel的目录索引表，适用场景：软件测试用例的列很多如10几列时，其中某几列可能不是很重要，想一眼看穿用例比较麻烦，所以建立个索引表，方便用例查看，介绍的csdn博客地址：http://blog.csdn.net/duantihi/article/details/50496680
自动生成文件夹目录树
12-08
自动生成文件夹目录树,方便使用EXCEL用户
VBA 下拉列表代码
02-13
Excel VBA 下拉列表代码！！
excel生成目录和返回目录超链接
03-12
对于多个sheet页的excel文件，能一次性生成目录超链接，并且在每个子sheet页上生成相应的返回目录超链接。内部有详细步骤
VBA示例之 求人不如自已动手 自动建立多级目录
10-26
在函数内部，读取需要创建的目录列表，如果目录不存在，则创建；然后，对每个子目录调用该函数，传入子目录的路径。 3. **错误处理**：在编写VBA代码时，应考虑可能出现的错误，如路径已存在或无权限创建新目录。...
Excel VBA 列出目录下所有子目录和文件
07-15
该Excel VBA工具可以列出指定目录下所有子目录和文件， 还可以过滤不要的目录，文件，指定匹配的目录和文件。
VBA文件批量拷贝（自动创建多层目录结构）
06-03
通过VBA实现了文件批量拷贝 支持多层文件结构 适合使用：带目录的文件拷贝 适合使用：带目录的文件拷贝
vba 生成excel目录
02-28
您可以使用以下VBA代码在Excel中生成目录： ``` Sub GenerateTableOfContents() Dim sh As Worksheet Dim tocSheet As Worksheet Dim i As Long Dim j As Long Dim tocRow As Long Set tocSheet = Worksheets.Add(after:=Worksheets(Worksheets.Count)) tocSheet.Name = "Table of Contents" tocSheet.Range("A1").Value = "Table of Contents" tocRow = 3 For Each sh In ThisWorkbook.Worksheets If sh.Name <> tocSheet.Name Then tocSheet.Hyperlinks.Add Anchor:=tocSheet.Cells(tocRow, 1), _ Address:="", _ SubAddress:="'" & sh.Name & "'!A1", _ TextToDisplay:=sh.Name tocRow = tocRow + 1 For i = 1 To sh.OutlineLevels.Count If sh.OutlineLevels(i) = 1 Then tocSheet.Cells(tocRow, 2).Value = sh.Cells(i, 1).Value tocSheet.Cells(tocRow, 2).IndentLevel = 1 tocSheet.Hyperlinks.Add Anchor:=tocSheet.Cells(tocRow, 1), _ Address:="", _ SubAddress:="'" & sh.Name & "'!" & sh.Cells(i, 1).Address, _ TextToDisplay:=sh.Cells(i, 1).Value tocRow = tocRow + 1 End If If sh.OutlineLevels(i) = 2 Then tocSheet.Cells(tocRow, 2).Value = sh.Cells(i, 1).Value tocSheet.Cells(tocRow, 2).IndentLevel = 2 tocSheet.Hyperlinks.Add Anchor:=tocSheet.Cells(tocRow, 1), _ Address:="", _ SubAddress:="'" & sh.Name & "'!" & sh.Cells(i, 1).Address, _ TextToDisplay:=sh.Cells(i, 1).Value tocRow = tocRow + 1 End If Next i tocSheet.Cells(tocRow, 1).Value = "" tocRow = tocRow + 1 End If Next sh tocSheet.Columns("A:B").AutoFit tocSheet.Activate End Sub ``` 此代码会创建一个名为“Table of Contents”的新工作表，并将所有现有工作表的名称和其大纲级别1和2的单元格添加到该表中，同时在目录中创建超链接，以便单击目录中的条目后可以快速跳转到相应的工作表和单元格。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

八零后琐话

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值