Data feed with web address to pictures

[scubajj]

Hello,

I have an excel data feed that has http://xxx. xxx is a link to individual pictures. I need to download these picture and save them as a jpg and change the file name as well. I have a database with about 2000 items. Can this be done?

Thanks
JJ

 

[John_w]

Do you mean what is in column B? If so, try replacing the main routine with this:

Public Sub Download_All_Images()

    Dim downloadToFolder As String
    Dim lastRow As Long
    Dim URL As Range
    Dim FileName As String
    
    downloadToFolder = "F:\Temp\Excel\images\"          'THIS FOLDER MUST EXIST
    
    If Right(downloadToFolder, 1) <> "\" Then downloadToFolder = downloadToFolder & "\"
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For Each URL In Range("A2:A" & lastRow)
        FileName = downloadToFolder & URL.Offset(0, 1).Value
    
        If Not DownloadFile(CStr(URL), FileName) Then
            MsgBox "Error downloading " & URL & " to " & FileName
        End If
    Next
    
End Sub