Excel VBA输出机场TAF至B7单元格报错：URL协议未识别

问题根源 #

你代码里的核心错误有两个：

• request.Open方法的第二个参数写错了，用了url = "xxx"这种赋值语句，导致传递给Open的不是合法URL，而是赋值操作的布尔结果，这直接触发了协议错误。
• URL拼接逻辑混乱，重复添加了参数，导致URL格式无效。

修正后的代码 #

Sub InitializeTAF()
    Dim url As String
    Dim request As New WinHttpRequest
    Dim response As String
    Dim ids As String
    Dim format As String
    
    ' 取消之前的定时任务，避免重复触发
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:02:00"), "InitializeTAF", , False
    On Error GoTo 0
    
    ' 设置TAF请求参数
    ids = "RKSO"
    format = "raw"
    
    ' 正确构造请求URL，只保留必要参数
    url = "https://www.aviationweather.gov/taf/data?ids=" & ids & "&format=" & format & "&date=&submit=Get+TAF+data"
    
    On Error GoTo RequestError ' 添加错误处理
    ' 发送请求（注意这里直接传url变量，不要写赋值语句）
    request.Open "GET", url, False
    request.Send
    response = request.ResponseText
    
    ' 将结果写入B7单元格
    ActiveSheet.Range("B7").Value = response
    
    ' 重新设置定时刷新
    Application.OnTime Now + TimeValue("00:02:00"), "InitializeTAF"
    Exit Sub
    
RequestError:
    ActiveSheet.Range("B7").Value = "请求失败：" & Err.Description
End Sub

关键修改点 #

• 移除request.Open里错误的url = "xxx"写法，直接传入构造好的url变量。
• 重构URL拼接逻辑，确保参数正确且不重复，符合HTTP请求格式。
• 添加错误处理，请求失败时会在B7显示错误信息，避免宏崩溃。
• 每次执行前取消之前的定时任务，防止多次触发导致的冲突。

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