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

2019年8月28日

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

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

0条评论

递交一条评论

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据