提示:本站收集StackOverFlow近2千万问答，支持中英文搜索，鼠标放在语句上弹窗显示对应的参考中文或英文， 本站还提供 中文繁体 英文版本 中英对照 版本，有任何建议请联系yoyou2525@163.com。
我有此过程可将（绝对）链接添加到单元格。 VBA可以很好地创建链接，但是Excel会自动将以前的链接更改为URL链接。
Sub SetHyperlink(ByVal wsSheets_I As Worksheets, ByVal sPDFFile_I As String, ByVal lRowMd_I As Long)
ActiveSheet.Hyperlinks.Add _
Anchor:=wsSheets_I.Range("A" & lRowMd_I), _
Address:=sPDFFile_I, _
TextToDisplay:=wsSheets_I.Cells("C" & lRowMd_I).Value
End Sub
例如：如果我在Excel上下文菜单中选择“修改超链接”，则D:\\Reports\\File 154867452 of 154867500 files.pdf为： Reports\\File%20154867452%20of%20154867500%20files.pdf
然后进行Debug.Print (wsSheets_I.Range("A" & lRowMd_I).Hyperlinks(1).Address)
返回Reports/File 154867452 of 154867500 files.pdf （将"\\"更改为"/" ），但是该链接在Excel中正常工作。
我该怎么做Debug.Print (wsSheets_I.Range("A" & lRowMd_I).Hyperlinks(1).Address)返回Debug.Print (wsSheets_I.Range("A" & lRowMd_I).Hyperlinks(1).Address)的原始D:\\Reports\\File 154867452 of 154867500 files.pdf
我不在乎相对或绝对路径（Hyperlink Base属性）
Excel 365 MSO（16.0.135302）32位，Windows 10（64位）
声明：本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.