继续上一篇/whandgdh/article/details/100184529合并多个工作簿，后我们需要在创建目录，并通过目录超链接到工作表。
示列excel如下
我们要在目录中名字链接到工作表中，第一步需要获取工作簿中所有工作表的名字
step 1、获取工作簿所有工作表名字
vba 代码如下：
Sub 获取工作表名称()Dim k As IntegerFor k = 2 To Sheets.Count Cells(k, 1) = Sheets(k).Name NextEnd Sub
for k=2 表示从工作簿的第二个工作表开始
进入目录中代码界面，并把代码复制到vba编程区里面如下图
运行后结果如下：
step 2 通过 HYPERLINK生成超链接
在目录中B2单元格输入下面函数
=HYPERLINK("#"&A2&"!A1",A2) ”#” 表示引用的工作表名在当前工作簿中”!A1” 表示链接到对应工作表的A1单元格, HYPERLINK第二个参数A2表示以工作表名称命名超链接。
然后只需向下填充即可
我们只需要把A例隐藏即可。
最后为了保存方便还需删除宏。再保存
