为excel自动增加目录

最新推荐文章于 2021-01-12 04:54:41 发布

万寺院的和尚

最新推荐文章于 2021-01-12 04:54:41 发布

阅读量581

点赞数

分类专栏：办公工具文章标签： excel

本文链接：https://blog.csdn.net/bjnihao/article/details/51996763

版权

办公工具专栏收录该内容

1 篇文章 0 订阅

订阅专栏

为excel自动增加目录

打开“开发者工具”选项，运行

Sub getAllWorkSheets()
' 得到所有的sheet页名称，并加上超连接
    totalNum = Worksheets.Count
    Sheet16.Activate
    Range("B:B").Select
    Selection.NumberFormatLocal = "@"
    ' 从2开始就是不带“目录”Sheet页，如果要带，则从1开始
    For index_i = 2 To totalNum
        sheetName = Worksheets(index_i).Name
        Cells(index_i, 2) = sheetName
        tar_sheet = "'" & sheetName & "'"
        Cells(index_i, 2).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        tar_sheet & "!A1", TextToDisplay:=sheetName
    Next index_i
End Sub