excel - hyperlinks(1).address 仅返回部分地址

Question

我正在编写以下代码，它将根据单击链接时链接是否有效来重新格式化包含链接的单元格:

Private Sub worksheet_followhyperlink(ByVal HL As HYPERLINK)
Dim linkReq As Object
Dim linkStatus As Integer

Application.ScreenUpdating = False
On Error GoTo linkError
Set linkReq = New MSXML2.XMLHTTP60
With linkReq
    .Open "GET", HL.address, False
    .Send
End With
linkStatus = linkReq.Status

If linkStatus = 404 Then HL.Parent.Interior.Color = rgbPink
If linkStatus <> 404 Then HL.Parent.Interior.Pattern = xlNone

If HL.Parent.Interior.Pattern = xlNone Then GoTo exitSub
Application.ScreenUpdating = True
MsgBox("Link is broken")

exitSub:
Application.ScreenUpdating = True
Exit Sub

linkError:
linkStatus = 404
Resume Next
End Sub

昨天的代码运行得很好!但现在，即使链接有效，它也会将所有内容返回为“404”并将单元格标记为粉红色。调试显示HL.address的值为“folder/Document.pdf”而不是“https://website/folder/Document.pdf”。此 Excel 文档通过 sharepoint 托管在“https://website”上。

由于截断，代码无法运行。

有没有一种方法可以从 Excel 超链接中提取完整的 url，而无需截断，无论 url 的大小如何？

Answer 1

Excel 似乎正在将您的超链接地址从绝对地址更改为相对地址。

您可以尝试通过更改所谓的“超链接基址”来强制使用绝对地址。为此，请转到:文件 > 信息 > 显示所有属性 > 超链接库(位于屏幕右侧)并将其更改为“x”。

来自 Microsoft 支持网站的引用:

https://support.microsoft.com/en-us/help/903163/how-to-create-absolute-hyperlinks-and-relative-hyperlinks-in-word-docu

(文章介绍了 MS Word 的解决方案，但它也应该适用于 MS Excel)

希望有帮助。