如果是针对小量图片不嫌麻烦的情况下，我们可以通过将图片链接粘贴至浏览器后打开，然后右键图片进行保存，从而将图片链接转化为本地图片。

但是这种手动操作的方式有个问题就是不适用于大批量图片，成百上千个图片复制链接，右键保存，差不多手都得废了。

今天，我们给大家介绍VBA和ScriptLab两种方式分别实现将Excel内的图片链接下载至本地，便于直接使用。

Alt+F11快捷键进入编辑界面

下边为代码

Sub downloadJPGImages(source As Range, targetFolder As String)
    Set oXMLHTTP = CreateObject(""MSXML2.XMLHTTP.6.0"")
    Set oBinaryStream = CreateObject(""ADODB.Stream"")
    adTypeBinary = 1
    oBinaryStream.Type = adTypeBinary
    For i = 1 To source.Rows.Count
        imagePath = targetFolder & source.Cells(i, 1)
        imageUrl = source.Cells(i, 2)
    
        On Error GoTo HTTPError
          oXMLHTTP.Open ""GET"", imageUrl, False
          oXMLHTTP.Send
          aBytes = oXMLHTTP.responsebody
        On Error GoTo 0
        
          oBinaryStream.Open
          oBinaryStream.Write aBytes
          adSaveCreateOverWrite = 2
          oBinaryStream.SaveToFile imagePath, adSaveCreateOverWrite
          oBinaryStream.Close
          source.Cells(i, 3).Value = ""图片成功下载""
NextRow:
    Next
    MsgBox ""完成""
    Exit Sub
HTTPError:
     source.Worksheet.Cells(i, source.Worksheet.UsedRange.Columns.Count + 1).Value = ""图片下载失败""
     Resume NextRow
End Sub

Sub downloadJPGImagesTest()
    downloadJPGImages Range(""A2:C3""), ""D:\Meekou\图片结果\""
End Sub

代码结束

注意事项

downloadJPGImages Range(""A2:C3"")   A2:C3 代表数据区域    

downloadJPGImages Range(""A2:C3""), ""D:\Meekou\图片结果\""    最后的路径为图片保存路径

文章摘自

米可爱分享