Excel VBA设置单元格超链接至其他工作簿，代码语法求纠错

我帮你理清楚代码里的几个问题，然后给出可以正常运行的修正版本：

原代码的核心问题： #

• 你写的path = "strPath.xls"是把字符串strPath.xls赋值给变量，而不是把变量strPath和文件后缀拼接，这会导致超链接指向一个不存在的文件
• VBA里不能直接通过.Hyperlink = path来设置超链接，需要用Hyperlinks.Add这个专用方法
• 完全不需要打开目标工作簿，设置超链接不需要提前打开文件，这步纯粹是浪费资源

修正后的代码： #

For index = 3 To 37
    If sheet.Cells(index, 3) = "OPEN" Then
        dateColumn = FindDate(portfolioDate)
        portfolioName = ActiveSheet.Range("A" & index).Value
        ' 拼接完整的文件路径，加上对应后缀（如果是xlsx就改成.xlsx）
        strPath = "G:\Risk\Risk Reports\VaR-Stress test\" & portfolioDate & "\" & portfolioName & ".xls"
        
        ' 使用Hyperlinks.Add方法设置超链接
        sheet.Hyperlinks.Add _
            Anchor:=sheet.Cells(index, dateColumn), _
            Address:=strPath, _
            TextToDisplay:=sheet.Cells(index, dateColumn).Value ' 可以自定义显示文本，比如改成"点击查看报告"
            
        ' 原代码里打开工作簿的操作完全没必要，直接删除即可
        ' Set wb = Workbooks.Open(strPath)
        ' wb.Close Savechanges:=False
    End If
Next

关键说明： #

• Anchor参数指定要添加超链接的目标单元格，也就是你要设置的sheet.Cells(index, dateColumn)
• Address参数就是目标文件的完整路径，这里我们直接用拼接好的strPath
• TextToDisplay是单元格内显示的文本，如果你不想用单元格原有值，可以改成固定文本，比如"查看对应报告"
• 记得确认目标文件的后缀是.xls还是.xlsx，根据实际情况修改拼接的后缀

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