如何在VBA宏中调用VBAProject工作表名称以实现精准匹配？

问题原因 #

你之前的代码用Sheets(i)获取工作表，这里的i对应的是Excel界面中工作表标签的显示顺序，而非VBAProject里的工作表代码名称（比如Sheet2）。如果工作表在界面上被拖拽调整过顺序，Sheets(2)就可能不是代码名为Sheet2的工作表，这直接导致了超链接匹配错误。

解决方案 #

要精准调用VBAProject中的工作表代码名称，有两种实用方法：

方法1：直接按代码名循环匹配 #

如果你的工作表代码名是连续的Sheet2到Sheet26，可以通过VBA项目组件直接获取对应工作表的名称：

With Sheets("Overview")
    Dim i As Long
    For i = 2 To 26
        Dim wsComponent As Object
        Set wsComponent = ThisWorkbook.VBProject.VBComponents("Sheet" & i)
        
        ' 仅处理工作表类型的组件
        If wsComponent.Type = 100 Then
            Dim wsName As String
            wsName = wsComponent.Properties("Name").Value
            
            .Hyperlinks.Add Anchor:=.Cells(i, 1), _
                            Address:="", _
                            SubAddress:=wsName & "!A1", _
                            TextToDisplay:=.Cells(i, 1).Value
        End If
    Next i
End With

注意：使用此方法需要启用VBA项目对象模型的访问权限：文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置 > 勾选"信任对VBA项目对象模型的访问"。

方法2：用字典绑定单元格值与工作表代码名 #

如果单元格值和工作表代码名的对应关系不是简单的数字递增，提前用字典存储映射关系，再匹配生成超链接：

Sub AddHyperlinksWithDict()
    ' 创建单元格值到工作表代码名的映射字典
    Dim wsDict As Object
    Set wsDict = CreateObject("Scripting.Dictionary")
    
    ' 按实际需求添加映射，示例如下
    wsDict("处理后的值_1") = "Sheet2"
    wsDict("处理后的值_2") = "Sheet3"
    ' ... 补充其他映射关系
    
    With Sheets("Overview")
        Dim i As Long
        For i = 2 To 26
            Dim cellVal As String
            cellVal = .Cells(i, 1).Value
            
            If wsDict.Exists(cellVal) Then
                Dim wsCodeName As String
                wsCodeName = wsDict(cellVal)
                
                Dim wsName As String
                wsName = ThisWorkbook.VBProject.VBComponents(wsCodeName).Properties("Name").Value
                
                .Hyperlinks.Add Anchor:=.Cells(i, 1), _
                                Address:="", _
                                SubAddress:=wsName & "!A1", _
                                TextToDisplay:=cellVal
            End If
        Next i
    End With
End Sub

关键提示 #

工作表的代码名称（VBAProject中显示的名称）是固定不变的，不会因界面标签的拖拽调整而改变，这是实现精准匹配的核心。而Sheets集合的索引依赖于界面显示顺序，一旦标签顺序变化就会出错。

内容的提问来源于stack exchange，提问作者Cyril