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

小朱博客

View posts by 小朱博客
小朱个人博客,生活网络分享,外贸建站,谷歌seo操作分享,B2B优化排名操作分享,资源分享,软件分享,生活分享。https://www.zhudc.com/

发表评论

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

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

Scroll to top