美文网首页
excel 超链接 批量校验是否可用

excel 超链接 批量校验是否可用

作者: 朱俊华_8803 | 来源:发表于2019-10-10 17:52 被阅读0次

// 校验超链接对应文件地址 是否存在
Public Function FileFolderExists(strFullPath As String) As Boolean

    On Error GoTo EarlyExit

    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True

EarlyExit:

    On Error GoTo 0

End Function

Sub check()

Dim url1 As String, chk As Boolean

For i = 6 To 158

    If Cells(i, "e").Value <> "" Then

    url1 = "Z:\CMMI修改后\" & Cells(i, "e").Value

    chk = FileFolderExists(url1)

    Cells(i, "q").Value = IIf(chk, "有效", "无效")

    End If

Next

End Sub

相关文章

网友评论

      本文标题：excel 超链接 批量校验是否可用

      本文链接：https://www.haomeiwen.com/subject/cuhubxtx.html

      延伸阅读

      深度阅读

      • 您也可以注册成为美文阅读网的作者，发表您的原创作品、分享您的心情！

      栏目导航

      热点阅读

      关于我们|服务条款|联系我们|excel 超链接 批量校验是否可用|投稿指南|网站地图|RSS订阅|排版工具|手机版

      提供经典美文摘抄,优美散文欣赏,现代诗歌精选,短篇小说,心情随笔,表白情书范文,故事会在线阅读欣赏

      Copyright © 2014-2023 Haomeiwen.com All Rights Reserved. 好美文阅读网 版权所有

      备案信息：桂公网安备 45052102000051号 · 桂ICP备13007215号-3

      本站所收录作品、热点评论等信息部分来源互联网，目的只是为了系统归纳学习和传递资讯

      所有作品版权归原创作者所有，与本站立场无关，如不慎侵犯了你的权益，请联系我们告知，我们将做删除处理！