使用vba获取excel每个sheet页的名称，并在目录页生成超级链接

以下是使用VBA获取Excel每个sheet页的名称，并在目录页生成超级链接的代码：

Sub CreateHyperlinks()

    Dim ws As Worksheet
    Dim wsIndex As Integer
    Dim wsCount As Integer
    
    '获取工作表总数
    wsCount = ActiveWorkbook.Worksheets.Count
    
    '创建目录页
    Sheets.Add Before:=ActiveSheet
    ActiveSheet.Name = "目录"
    
    '循环所有工作表并生成超级链接
    For wsIndex = 1 To wsCount
        '获取当前工作表对象
        Set ws = ActiveWorkbook.Worksheets(wsIndex)
        '在目录页生成超级链接
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(wsIndex, 1), Address:="", SubAddress:="'" & ws.Name & "'" & "!A1", TextToDisplay:=ws.Name
    Next wsIndex

End Sub

在这个代码中，我们首先获取了工作表的总数并创建了一个名为“目录”的新工作表。然后，我们循环遍历了所有工作表，并使用`ActiveSheet.Hyperlinks.Add`方法在目录页上创建了超级链接。在这个方法中，Anchor参数指定了链接的单元格位置，Address参数为空，SubAddress参数指定了链接的目标工作表和单元格位置，TextToDisplay参数指定了链接文本的显示内容。