含特殊字符的图片URL无法用VBA下载的问题求助

你的VBA代码无法处理含URL编码特殊字符（如ä转成的%C3%A4、ß转成的%C3%9F）的图片链接，核心问题有两个：一是错误地将字节数组类型的HttpReq.ResponseBody赋值给字符串变量，破坏了逻辑；二是老旧的Microsoft.XMLHTTP对象对URL编码的兼容性不足。

Sub DownloadImage()
    Dim myURL As String
    Dim i As Integer, j As Integer
    Dim lRow As Long
    Dim HttpReq As Object
    Dim oStrm As Object
    Dim artikelnummer As String
    Dim bildIndex As Integer
    Dim zieladresse As String
    
    ' 获取数据最后一行
    lRow = Worksheets("datenabruf").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环处理12列图片链接（列46到57）
    For j = 46 To 57
        bildIndex = j - 45 ' 计算是第几张图（1-12）
        For i = 2 To lRow
            artikelnummer = Worksheets("datenabruf").Cells(i, 1).Value
            myURL = Worksheets("datenabruf").Cells(i, j).Value
            
            If myURL <> "" Then
                ' 使用高版本XMLHTTP组件，提升编码兼容性
                Set HttpReq = CreateObject("MSXML2.XMLHTTP.6.0")
                HttpReq.Open "GET", myURL, False
                ' 添加请求头，明确字符编码
                HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
                HttpReq.send
                
                ' 检查请求是否成功
                If HttpReq.Status = 200 Then
                    ' 写入文件
                    Set oStrm = CreateObject("ADODB.Stream")
                    oStrm.Open
                    oStrm.Type = 1 ' 二进制模式
                    oStrm.Write HttpReq.ResponseBody
                    
                    ' 生成目标路径，简化原有冗长的判断
                    zieladresse = "Z:\fleurami\bilder\api2.0\" & artikelnummer & "-" & bildIndex & ".jpg"
                    Worksheets("datenabruf").Cells(i, 99 + bildIndex).Value = artikelnummer & "-" & bildIndex & ".jpg"
                    
                    oStrm.SaveToFile zieladresse, 2 ' 2=覆盖已有文件
                    oStrm.Close
                    Set oStrm = Nothing
                End If
                Set HttpReq = Nothing
            End If
        Next i
    Next j
    
    ' 设置表头，简化代码
    For i = 1 To 12
        Worksheets("datenabruf").Cells(1, 99 + i).Value = "Bild " & i
    Next i
End Sub

• 移除错误赋值：删掉了myURL = HttpReq.ResponseBody这行错误代码，ResponseBody是字节数组，不能直接赋值给字符串变量。
• 升级XMLHTTP组件：改用MSXML2.XMLHTTP.6.0，它对UTF-8编码的URL兼容性更好，能正确解析含特殊字符编码的链接。
• 简化冗余逻辑：把原有12个ElseIf判断改成通过计算bildIndex生成路径和表头，代码更简洁易维护。
• 添加编码请求头：明确指定请求字符集为UTF-8，确保服务器正确解析请求。

你可以直接用提供的测试链接https://www.fleur-ami.com/out/pictures/master/product/1/bodengef%C3%A4%C3%9F-XXL-anthrazit-tribeca-shape-natural-raw-24541-N.jpg测试，修正后的代码能正常下载该图片。

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