Excel批量检测本地图片超链接是否有效

Excel批量检测本地图片超链接是否有效，主要用于表格发布产品，生成图片链接，有相关需求的朋友可以试试。

本地上千张图片提取到Excel中生成链接，并检测图片是否存在。

A1:A6代表范围，自行修改。

Sub t()
    Dim rg As Range, rng As Range, arr, x&
    Set rng = Range("A1:A6")   '单元格范围
    p = ThisWorkbook.Path & ""
    ReDim arr(1 To rng.Count, 1 To 1)
    For Each rg In rng
        x = x + 1
        s = rg.Hyperlinks(1).Address
        s = IIf(InStr(s, "") > 0, s, p & s)
        If Dir(s) = "" Then
            arr(x, 1) = "不存在"
        Else
            arr(x, 1) = "存在"
        End If
    Next
    rng.Offset(, 1) = arr    '在原单元格右一列输出
End Sub