基于VBA从Excel A列链接下载图片：格式与路径优化问询

没问题，我来帮你搞定这个需求！你的核心问题有两个：一是把下载的图片转成JPG格式，二是自定义存储目录。原代码用URLDownloadToFile只能下载原始格式的文件，没法直接转格式，所以我们需要先下载临时文件，再通过Excel的图片对象转存为JPG，最后清理临时文件。下面是修改后的完整代码，我会逐点解释：

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, _
        ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As Long
    Private Declare PtrSafe Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
        (ByVal lpFileName As String) As Long
#Else
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
        ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
        (ByVal lpFileName As String) As Long
#End If

Sub DownloadAndConvertToJPG()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim imgURL As String
    Dim saveFolder As String
    Dim tempFilePath As String
    Dim jpgFileName As String
    Dim shp As Shape
    Dim downloadResult As Long
    
    ' --------------------------
    ' 自定义设置：修改这里的参数适配你的需求
    ' --------------------------
    saveFolder = "C:\MyDownloadedImages\" ' 改成你想要的存储目录
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 改成你的目标工作表名称
    
    ' 自动创建存储目录（如果不存在）
    If Dir(saveFolder, vbDirectory) = "" Then
        MkDir saveFolder
    End If
    
    ' 获取A列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理A列的每个图片链接（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        imgURL = Trim(ws.Cells(i, "A").Value)
        If imgURL <> "" Then
            ' 生成临时文件名（避免重名冲突）
            tempFilePath = saveFolder & "temp_" & i & ".tmp"
            ' 生成最终JPG文件名（这里用行号命名，你可以改成其他规则，比如用单元格内容）
            jpgFileName = saveFolder & "Image_" & i & ".jpg"
            
            ' 下载原始图片到临时文件
            downloadResult = URLDownloadToFile(0, imgURL, tempFilePath, 0, 0)
            
            If downloadResult = 0 Then ' 下载成功
                On Error Resume Next
                ' 插入临时图片到工作表（放在左上角隐藏位置，避免干扰）
                Set shp = ws.Shapes.AddPicture(Filename:=tempFilePath, LinkToFile:=msoFalse, _
                    SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=100, Height:=100)
                On Error GoTo 0
                
                If Not shp Is Nothing Then
                    ' 将图片导出为JPG格式
                    shp.Export Filename:=jpgFileName, FilterName:="JPG"
                    
                    ' 清理：删除插入的形状和临时文件
                    shp.Delete
                    DeleteFile tempFilePath
                    
                    ' 标记处理状态（可选，在B列显示结果）
                    ws.Cells(i, "B").Value = "已转存为JPG"
                Else
                    ws.Cells(i, "B").Value = "无法插入图片（格式不支持？）"
                End If
            Else
                ws.Cells(i, "B").Value = "下载失败"
            End If
        End If
    Next i
    
    MsgBox "图片处理完成！"
End Sub

关键修改点说明 #

1. 兼容32/64位Excel：用#If VBA7 Then判断环境，给API声明加PtrSafe，避免在64位Excel中报错。
2. 自定义存储目录：直接修改saveFolder变量的值即可，代码会自动检查目录是否存在，不存在则创建。
3. 格式转换逻辑：先下载原始格式的图片到临时文件，再通过Excel的Shapes.AddPicture插入图片，最后用Export方法导出为JPG——这个方法能自动将PNG、WebP等Excel支持的格式转成JPG。
4. 临时文件清理：转存完成后自动删除临时文件，避免残留垃圾文件。
5. 错误处理：加入了基础的错误捕获，单个图片处理失败不会导致整个程序崩溃，还在B列标记处理状态，方便排查问题。

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