VBA - 工作表列表(超链接)

Question

我有一个 Excel 工作簿。在此工作簿中，通过 VBA 创建了一个新工作表。

该工作簿的工作表越多，就越令人困惑，因为我必须滚动很长时间才能到达中间的任何工作表。

我想创建一个概述表

• 其中列出了工作表的名称并且
• 工作表的名称必须是超链接。

我的代码根本不起作用 -顺便说一句，我必须使用 Excel 2003

这是我所拥有的:

Sub GetHyperlinks()
    Dim ws As Worksheet
    Dim i As Integer

    i = 4

    ActiveWorkbook.Sheets("overview").Cells(i, 1).Select

    For Each ws In Worksheets
        ActiveWorkbook.Sheets("overwies").Hyperlinks.Add _
        Ancor:=Selection, _
        Address:="", _
        SubAddress:="'ws.name'", _
        TextToDisplay:="'ws.name'"

        i = i + 1
    Next ws
End Sub

Answer 1

稍微改变了你的代码 - 现在可以工作了:

Sub GetHyperlinks()
    Dim ws As Worksheet
    Dim i As Integer

    i = 4

    For Each ws In ThisWorkbook.Worksheets
        ActiveWorkbook.Sheets("overview").Hyperlinks.Add _
        Anchor:=ActiveWorkbook.Sheets("overview").Cells(i, 1), _
        Address:="", _
        SubAddress:="'" & ws.Name & "'!A1", _
        TextToDisplay:=ws.Name

        i = i + 1
    Next ws
End Sub