VBA中Shapes.AddPicture调用特定亚马逊URL报错1004，求排查原因

你的问题很典型——大部分图片URL正常，唯独亚马逊的这个URL报错，核心原因不是URL写法不符合VBA要求，而是亚马逊服务器的访问限制，具体分析和解决方案如下：

为什么会报错？ #

• URL格式完全合规：你写的HTTPS地址没有特殊字符、格式错误，其他图片能正常插入也证明了AddPicture的调用语法是正确的，完全排除写法问题。
• 亚马逊的防盗链机制：亚马逊图片服务器会校验请求的Referer请求头（用来标识请求来源页面）。VBA的AddPicture直接发起请求时，不会携带合法的亚马逊页面Referer，服务器会判定这是非法的盗链请求，拒绝返回图片，而VBA把这个“拒绝访问”的结果映射成了“未找到指定文件”的1004错误。

可行的解决方案：先下载再插入 #

绕过防盗链的思路是模拟浏览器的合法请求，先把图片下载到本地临时文件夹，再插入到工作表中，示例代码如下：

Sub testDownloadAndInsert()
    Dim imgURL As String
    Dim tempPath As String
    Dim http As Object
    
    '目标图片URL
    imgURL = "https://images-na.ssl-images-amazon.com/images/M/MV5BYzVlY2JiODctNGMzNC00OWE5LTg3MTEtNDQ3NDYxNjIxNTBiXkEyXkFqcGdeQXVyNTM3MDMyMDQ@._V1_.jpg"
    '临时文件路径（系统临时文件夹）
    tempPath = Environ("TEMP") & "\temp_amazon_img.jpg"
    
    '初始化HTTP对象，模拟浏览器请求
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", imgURL, False
    '添加亚马逊页面作为Referer，通过服务器校验
    http.setRequestHeader "Referer", "https://www.amazon.com/"
    http.send
    
    '如果请求成功（状态码200），保存图片到本地
    If http.Status = 200 Then
        Dim fileStream As Object
        Set fileStream = CreateObject("ADODB.Stream")
        
        fileStream.Type = 1 '二进制模式
        fileStream.Open
        fileStream.Write http.responseBody
        fileStream.SaveToFile tempPath, 2 '覆盖现有文件
        fileStream.Close
        
        '插入本地图片到工作表
        Sheets(1).Shapes.AddPicture tempPath, msoFalse, msoTrue, 100, 100, 500, 600
        
        '清理临时文件
        Kill tempPath
    Else
        MsgBox "图片下载失败，服务器返回状态码：" & http.Status
    End If
    
    '释放对象
    Set http = Nothing
    Set fileStream = Nothing
End Sub

代码说明： #

1. 用MSXML2.XMLHTTP发起请求时，手动添加Referer头模拟来自亚马逊官网的访问，通过服务器的防盗链校验；
2. 用ADODB.Stream以二进制模式保存图片（避免文本模式导致的文件损坏）；
3. 插入完成后自动删除临时文件，避免占用存储空间。

需要注意：亚马逊的反爬机制可能会随时更新，这种方法不能保证永久有效，使用时请遵守亚马逊的服务条款。

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