Excel中自动验证URL网址链接有效性

下面表格中的网址有的可以打开，有的不能打开

在Excel中按下 Alt + F11 键来打开VBA编辑器，选择 插入 > 模块，创建一个新的模块，在新创建的模块窗口中输入以下代码：

Function 测试网址(ByVal URL As String) As String

Dim objHttpRequest As Object
Dim strResponse As String
Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")
On Error Resume Next
objHttpRequest.Open "GET", URL, False
objHttpRequest.Send
On Error GoTo 0
If objHttpRequest.Status = 200 Then
测试网址 = "有效网址"
Else
测试网址 = "无效网址"
End If
Set objHttpRequest = Nothing
End Function

关闭VBE编辑器（无需保存），回到Excel中，输入函数 =测试网址(A2)，回车，下拉菜单批量应用函数

注意：函数只支持HTTP和HTTPS协议。如果尝试使用ftp://或file://等不支持的协议，函数将返回#VALUE!错误，省略https://正确的网址也会返回#VALUE!错误。