VBA 下载文件名含希伯来语的URL图片时下载失效的问题咨询

失效原因 #

Windows提供的URLDownloadToFile下载接口仅支持符合URI规范的ASCII编码URL，无法直接解析路径中嵌入的希伯来语等非ASCII字符。必须将URL中的非ASCII段落转换为标准UTF-8百分号转义格式，接口才能正常识别请求地址完成下载。

实现思路 #

• 补充VBA缺失的标准URL编码函数，自动完成非ASCII字符的转义处理
• 读取A2单元格存储的原始希伯来语URL，经编码函数生成符合HTTP规范的合法请求地址
• 将编码后的URL传入原有下载接口执行操作，保留原有的本地文件校验逻辑

完整代码 #

' 符合RFC 3986规范的UTF-8 URL编码函数，适配含希伯来语的非ASCII字符转义
Function EncodeUrl(rawUrl As String) As String
    Dim utf8Stream As Object
    Dim byteArr() As Byte
    Dim i As Long
    Dim resultStr As String
    Dim currentByte As Byte
    Dim currentChar As String
    
    Set utf8Stream = CreateObject("ADODB.Stream")
    With utf8Stream
        .Charset = "UTF-8"
        .Mode = 2
        .Type = 2
        .Open
        .WriteText rawUrl
        .Position = 0
        .Type = 1
        byteArr = .Read
        .Close
    End With
    Set utf8Stream = Nothing
    
    resultStr = ""
    For i = 0 To UBound(byteArr) - 1
        currentByte = byteArr(i)
        currentChar = ChrW(currentByte)
        ' 保留通用可打印ASCII字符，对URI特殊字符、非ASCII字符执行百分号转义
        If currentByte >= &H20 And currentByte <= &H7E And InStr(""" <>#%{}|\\^~[]`", currentChar) = 0 Then
            resultStr = resultStr & currentChar
        Else
            resultStr = resultStr & "%" & Right("0" & Hex(currentByte), 2)
        End If
    Next i
    EncodeUrl = resultStr
End Function

Sub Download_Image()
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim rawUrl As String
    Dim encodedUrl As String
    Dim savePath As String
    
    ' 读取工作表配置的原始URL与本地保存文件名
    rawUrl = Cells(2, 1).Value
    ' 对原始URL中的希伯来语字符执行标准转义
    encodedUrl = EncodeUrl(rawUrl)
    savePath = "E:\temp\" & Cells(2, 2) & ".jpg"
    
    Set objShell = CreateObject("Shell.Application")
    ' 传入编码后的合法URL执行下载
    URLDownloadToFile 0, encodedUrl, savePath, 0, 0
        
    Set objFolder = objShell.Namespace("E:\temp\")
    Set objFile = objFolder.ParseName(Cells(2, 2) & ".jpg")
End Sub

使用注意事项 #

• 编码逻辑严格采用UTF-8字符集，不能使用系统默认ANSI编码转义，否则生成的转义串与Web服务器的字符解析规则不匹配，会触发404错误
• 执行下载前需确保本地保存路径E:\temp\文件夹已存在，否则URLDownloadToFile接口会静默失败，不会弹出错误提示
• 该编码逻辑可兼容普通ASCII格式URL的下载场景，不需要对原有普通URL的下载流程做特殊适配

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