是否可以检查超链接是否在Excel中有效?

时间:2016-07-25 11:01:39

标签: excel vba

我在列A中有一个超链接列表。有些工作,有些没有。我正在制作一个脚本来检查它们是否有效,然后删除那些不合适的脚本。我所拥有的是:

Sub UndoLink()
Dim rng As Range
Dim i As Long
Dim n As String
i = 2
While i <= 4730

Set rng = Range("A" & i)
n = Range("A" & i).Value
    If Worksheet.Function.FileExist(rng) = False Then
        rng.Hyperlinks.Delete
        i = i + 1
    Else: i = i + 1
    End If
Wend
End Sub

Public Function FileExist(path As String) As Boolean
    If Dir(path) <> vbNullString Then FileExist = True
End Function

当我在sub中引用FileExist时,我收到了一个函数错误。为了澄清,超链接都在字符串中,如&#34; 648242,&#34;蓝色下划线。如果路径不存在,我想删除超链接并保留字符串。这可能吗?

1 个答案:

答案 0 :(得分:1)

删除超链接:

rng.Hyperlinks.Delete