excel - 检查 Excel 中是否存在损坏的超链接

Question

我有一大堆超链接(加上一些无意义的单元格)需要检查。我需要知道哪些链接仍然有效，哪些链接不再存在或返回 404(或其他)错误。我一直在使用此条目中的建议:Sort dead hyperlinks in Excel with VBA?它在一小部分链接中效果很好，其中一些链接是我故意破坏的。但是，现在我尝试在实际的超链接列表上使用相同的宏，它根本不起作用!我手动检查了一些，发现有 404 错误的链接。同样，当我故意输错其中一个地址时，它会拾取该地址，但不会拾取列表中已损坏的任何地址。

我对宏完全陌生，我真的在黑暗中跌跌撞撞。任何帮助/建议将不胜感激!

Answer 1

我已经使用这个有一段时间了，它对我很有用。

Sub Audit_WorkSheet_For_Broken_Links()

If MsgBox("Is the Active Sheet a Sheet with Hyperlinks You Would Like to Check?", vbOKCancel) = vbCancel Then

    Exit Sub

End If

On Error Resume Next
For Each alink In Cells.Hyperlinks
    strURL = alink.Address

    If Left(strURL, 4) <> "http" Then
        strURL = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") & strURL
    End If

    Application.StatusBar = "Testing Link: " & strURL
    Set objhttp = CreateObject("MSXML2.XMLHTTP")
    objhttp.Open "HEAD", strURL, False
    objhttp.Send

    If objhttp.statustext <> "OK" Then

        alink.Parent.Interior.Color = 255
    End If

Next alink
Application.StatusBar = False
On Error GoTo 0
MsgBox ("Checking Complete!" & vbCrLf & vbCrLf & "Cells With Broken or Suspect Links are Highlighted in RED.")

End Sub