如何用Excel VBA检测网站是否宕机？

ShellExecute仅负责调用默认浏览器打开指定URL，不会验证网站的可用性，所以即使网站宕机它也会返回成功。要检测网站状态，可以通过发送HTTP请求并判断响应状态码来实现，以下是两种常用方法：

方法一：使用XMLHTTP对象（同步轻量请求） #

这种方法适合快速检测网站基本状态，通过HEAD请求仅获取响应头，比下载整个页面更高效：

Function IsWebsiteAlive(ByVal url As String) As Boolean
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    
    On Error GoTo ErrorHandler
    xmlHttp.Open "HEAD", url, False
    xmlHttp.Send
    
    ' 2xx状态码表示成功，3xx表示重定向（可根据需求调整判断逻辑）
    IsWebsiteAlive = (xmlHttp.Status >= 200 And xmlHttp.Status < 400)
    Exit Function
    
ErrorHandler:
    IsWebsiteAlive = False
End Function

' 调用示例
Sub TestAndOpenWebsite()
    Dim targetUrl As String
    targetUrl = "https://example.com"
    If IsWebsiteAlive(targetUrl) Then
        MsgBox "网站正常，即将打开"
        ShellExecute 0, "open", targetUrl, "", "", 1
    Else
        MsgBox "网站无法访问"
    End If
End Sub

方法二：使用WinHttpRequest对象（支持复杂场景） #

如果需要处理HTTPS证书、代理等复杂情况，或者要获取具体状态码做细致判断，可以用这个方法：

Function GetWebsiteStatusCode(ByVal url As String) As Integer
    Dim httpRequest As Object
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    On Error GoTo ErrorHandler
    httpRequest.Open "HEAD", url, False
    ' 若需忽略自签名证书错误，可添加此行：httpRequest.SetOption 4, 13056
    httpRequest.Send
    
    GetWebsiteStatusCode = httpRequest.Status
    Exit Function
    
ErrorHandler:
    GetWebsiteStatusCode = -1 ' 标记请求失败
End Function

' 调用示例
Sub CheckStatusAndOpen()
    Dim targetUrl As String
    targetUrl = "https://example.com"
    Dim statusCode As Integer
    statusCode = GetWebsiteStatusCode(targetUrl)
    
    Select Case statusCode
        Case 200 To 399
            MsgBox "网站状态正常，状态码：" & statusCode
            ShellExecute 0, "open", targetUrl, "", "", 1
        Case 404
            MsgBox "网站不存在（404）"
        Case 500 To 599
            MsgBox "服务器错误，网站可能宕机（状态码：" & statusCode & "）"
        Case Else
            MsgBox "网站无法访问，状态码：" & statusCode
    End Select
End Sub

注意事项：

• 以上代码用后期绑定创建对象，无需手动引用VBA库
• 同步请求会暂时阻塞Excel，直到请求完成；若需异步请求，可将Open方法的第三个参数设为True，并处理事件回调

内容的提问来源于stack exchange，提问作者alancc