VBA打开URL报错‘无法打开指定文件类型’，请求技术协助

问题根源 #

直接读取CO2单元格的.Value，如果单元格是超链接对象或公式生成的可点击链接，.Value返回的是显示文本而非真实URL，导致FollowHyperlink无法识别有效地址，触发报错。另外代码中列名Co2的小写o存在歧义，需修正为大写CO2。

修正方案 #

根据CO2单元格的超链接类型，选择对应代码：

方案1：CO2是手动插入的超链接

Sub OpenURLs()
    Dim i As Long ' 用Long避免行号超过Integer上限
    Dim cell As Range
    Dim url As String
    
    ' 遍历CO2列有数据的行（从第2行开始）
    For Each cell In ActiveSheet.Range("CO2:CO" & ActiveSheet.Cells(Rows.Count, "CO").End(xlUp).Row)
        ' 获取超链接真实地址
        If cell.Hyperlinks.Count > 0 Then
            url = cell.Hyperlinks(1).Address
            ' 处理本地文件相对路径，转为绝对路径
            If Left(url, 4) <> "http" Then
                url = ThisWorkbook.Path & "\" & url
            End If
            ActiveWorkbook.FollowHyperlink url
        Else
            MsgBox "单元格" & cell.Address & "无有效超链接", vbExclamation
        End If
        
        ' 复制CM列对应单元格内容（CO列左移1列）
        cell.Offset(0, -1).Copy
        
        MsgBox "点击OK继续下一个链接", vbOKOnly
    Next cell
End Sub

方案2：CO2是HYPERLINK公式生成的链接

Sub OpenURLs_FormulaHyperlink()
    Dim i As Long
    Dim cell As Range
    Dim url As String
    
    For Each cell In ActiveSheet.Range("CO2:CO" & ActiveSheet.Cells(Rows.Count, "CO").End(xlUp).Row)
        If cell.Hyperlinks.Count > 0 Then
            url = cell.Hyperlinks(1).Address
            ActiveWorkbook.FollowHyperlink url
        Else
            MsgBox "单元格" & cell.Address & "无有效超链接", vbExclamation
        End If
        
        cell.Offset(0, -1).Copy
        MsgBox "点击OK继续下一个链接", vbOKOnly
    Next cell
End Sub

额外注意事项 #

• URL格式必须有效：外部链接需带http:///https://前缀，本地文件需用完整绝对路径。
• 替换Integer为Long：Excel行数上限远大于Integer的32767，避免行号溢出错误。
• 列名统一用大写CO2：避免因Excel大小写不敏感导致的范围识别问题。

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