如何从excel超链接中提取完整path

我有一个工作表,我已经维护了一个列,其中包含超链接到其他工作表。

Set rngx = Worksheets("Sheet2").Range("C1:C10000").Find("Power Plant 1", lookat:=xlPart) BR2 = rngx.Hyperlinks(1).Address 

在BR2中,以前我曾经用“Projects \ Power Plant \ Power Plant EPC 1.xlsm”来获取特定的超链接path。

后来我进入信息 – >属性,并将超链接基地更改为C:\,提到超链接基地现在我得到的超链接path为“Users \ inkapb \ AppData \ Local \ Temp \ EPC AutoTool \ Projects \ Power Plant \电厂EPC 1.xlsm“

我的问题是我需要像C:\用户\ inkapb \应用程序数据\本地\温度\ EPC自动工具\项目\发电厂\发电厂EPC 1.xlsm从C:驱动器的path是否有可能实现这一点,而不追加C :\代码中。

使用%LOCALAPPDATA%环境variables设置超链接地址。

 'as a formula =HYPERLINK("%LOCALAPPDATA%\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm", "Power Plant 1") 'as VBA rngx.Hyperlinks(1).Address = Environ("LOCALAPPDATA") & _ "\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm" 'or, rngx.Hyperlinks(1).Address = "%LOCALAPPDATA%\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm" 

从超链接对象或HYPERLINK函数检索.Address应检索正确的完整path和文件名。

 BR2 = rngx.Hyperlinks(1).Address 

我得到了完整的path。 而不是超链接基地作为“C:\”我把它改为“X”,它的工作就像一个魅力。