将单元格的值设置为到另一个工作簿的超链接

Question

我想将一个单元格的值设置为另一个工作簿的超链接。
我将变量“ strPath”设置为通往要复制的工作簿的路径。
但是，我不确定我的语法是否正确。任何帮助将不胜感激。

For index = 3 To 37
    If sheet.Cells(index, 3) = "OPEN" Then
        dateColumn = FindDate(portfolioDate)
        portfolioName = ActiveSheet.Range("A" & index & "").Value

        strPath = "G:\Risk\Risk Reports\VaR-Stress test\" & portfolioDate & "\" & portfolioName & ""

       path = "strPath.xls"

        Set wb = Workbooks.Open(strPath)
        sheet.Cells(index, dateColumn).Hyperlink = path
        wb.Close Savechanges:=False

    End If
Next