VBA 创建超级链接失败

EXCEL渣渣

老师。我想在除了“目录”以外的工作表建立超级链接返回“目录”，请问如何解决，谢谢。


Sub 建立连接()
Dim i%, j%
Dim d As Object
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To Sheets.Count
  If Not d.Exists("目录") Then
  d(Sheets(i).Name) = ""
  End If
  Next
   If Not d.Exists("目录") Then
   Sheets.Add after:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = "目录"
   End If
   With Sheets("目录").Cells.ClearContents
   End With
   Set SH0 = Worksheets("目录")
        For Each wsheet In Worksheets
            If wsheet.Name <> SH0.Name Then
                j = j + 1
                SH0.Cells(j, 1).Hyperlinks.Add Anchor:=SH0.Cells(j, 1), _
                Address:="", SubAddress:="" & wsheet.Name & "!A1", _
                ScreenTip:=wsheet.Name, _
                TextToDisplay:=wsheet.Name
            End If
        Next wsheet
          For Each wsheet In Worksheets
            If wsheet.Name <> SH0.Name Then
                With wsheet
                .Cells(1, 10) = "OK"
                .Cells(3, 1).Hyperlinks.Add Anchor:=Cells(3, 1), _
                Address:="", SubAddress:="" & 目录 & "!A1", _
                ScreenTip:="", _
                TextToDisplay:=""
                End With
            End If
        Next wsheet
          With Sheets("目录")
               .UsedRange.CurrentRegion.Borders.Weight = xlThin
               .UsedRange.HorizontalAlignment = xlCenter
   End With
  End Sub

ykcbf1100

上传的附件又是空表，求助时能不能认真点。

目录表A列自动生成工作表目录，工作表可以增减。使用了工作表事件。

半百

ykcbf1100

半百 发表于 2023-5-5 15:16

你真认真，看代码这么仔细。

EXCEL渣渣

ykcbf1100 发表于 2023-5-5 14:55
上传的附件又是空表，求助时能不能认真点。

目录表A列自动生成工作表目录，工作表可以增减。使用了工作 ...

老师，代码在test工作簿里。

EXCEL渣渣

ykcbf1100 发表于 2023-5-5 14:55
上传的附件又是空表，求助时能不能认真点。

目录表A列自动生成工作表目录，工作表可以增减。使用了工作 ...

谢谢老师，我还想将文件内的所有工作簿内都建立目录，和返回目录的功能。

EXCEL渣渣

半百 发表于 2023-5-5 15:16

谢谢你，你好认真的批改