VBA Excel中Hyperlinks的address参数能否动态适配保存路径？

完全可以实现address参数的动态赋值，无论当前工作簿保存在哪个文件夹，都能自动获取其保存路径作为超链接地址，不受保存位置影响。

核心实现思路 #

VBA提供了内置属性直接获取文件的保存路径，只需将这些属性值传入Hyperlink的address参数即可：

• ThisWorkbook.FullName：返回当前工作簿的完整路径（含文件名）
• ThisWorkbook.Path：返回当前工作簿所在的文件夹路径

示例代码 #

1. 创建指向当前工作簿的动态超链接

Sub AddDynamicWorkbookLink()
    ' 先检查文件是否已保存
    If ThisWorkbook.Path = "" Then
        MsgBox "请先保存工作簿！", vbExclamation
        ThisWorkbook.SaveAs ' 弹出保存对话框，让用户选择任意文件夹
    End If
    
    ' 在A1单元格插入指向当前工作簿的超链接
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("A1"), _
        Address:=ThisWorkbook.FullName, _
        TextToDisplay:="打开当前文件"
End Sub

无论后续将文件移动或保存到其他文件夹，重新运行代码时，ThisWorkbook.FullName都会自动更新为最新路径，超链接地址也会同步调整。

2. 创建指向当前活动工作表的动态超链接

如果需要超链接到当前活动工作表的指定位置，可通过拼接路径实现：

Sub AddDynamicSheetLink()
    If ThisWorkbook.Path = "" Then
        MsgBox "请先保存工作簿！", vbExclamation
        ThisWorkbook.SaveAs
    End If
    
    ' 拼接完整的工作表定位路径
    Dim targetPath As String
    targetPath = ThisWorkbook.FullName & "#" & ActiveSheet.Name & "!A1"
    
    ' 在B1单元格插入指向当前工作表A1的超链接
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B1"), _
        Address:=targetPath, _
        TextToDisplay:="跳转到当前工作表A1"
End Sub

注意事项 #

• 若文件未保存，ThisWorkbook.Path会返回空字符串，必须先处理保存逻辑（如弹出保存对话框或提示用户手动保存），否则超链接地址无效。
• 若要指向其他工作簿，只需将ThisWorkbook替换为对应工作簿对象（如Workbooks("目标文件.xlsx")）即可。

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