Question

我在列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;蓝色下划线。如果路径不存在，我想删除超链接并保留字符串。这可能吗？

Answer 1

删除超链接：

rng.Hyperlinks.Delete

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

1 个答案: