Question

我有一个电子表格，我在其中使用vba添加文件的超链接，如下所示：

Sheet1.Cells.Hyperlinks.Add Sheet1.Cells(1, 1), objFile.Path

这很好用。但是，如果我将其中包含超链接的电子表格移动到另一个文件夹，则所有超链接都会相对于我将电子表格移动到的文件夹进行更改。

有没有办法阻止这种情况发生并修复超链接路径。

由于

Answer 1

尝试添加超链接完整路径公式而不是超链接对象

Sub AddHyperlinkFormula()
Dim strMyPath As String, strMyFile As String, strName As String

strMyPath = "C:\Path\to\"
strMyFile = "Workbook.xlsx!"
strName= "Alt Text!"

ActiveCell.Formula = "=HYPERLINK(""" & strMyPath & strMyFile & """,""" & strName& """)"
End Sub

Answer 2

同样的事情让我疯狂..'=超链接'并不总是一个选择，因为它有255 maxchar限制。因此，确保最佳解决方案是设置超链接库（特定于工作簿）。可以通过两种方式完成：

1）文件 - ＆gt;属性 - ＆gt;摘要标签 - ＆gt;超链接基础

2）或使用vba ActiveWorkbook.BuiltinDocumentProperties(29)

移动电子表格时，Excel超链接会发生变化

2 个答案: