GET pictures from a url and then rename the picture

Here is a sample which will help you.

I am assuming that your Excel file will look like this. Please amend the code as applicable.

Option ExplicitPrivate 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 LongDim Ret As Long'~~> This is where the images will be saved. Change as applicableConst FolderName As String = "C:\Temp\"Sub Sample()    Dim ws As Worksheet    Dim LastRow As Long, i As Long    Dim strPath As String    '~~> Name of the sheet which has the list    Set ws = Sheets("Sheet1")    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row    For i = 2 To LastRow '<~~ 2 because row 1 has headers        strPath = FolderName & ws.Range("A" & i).Value & ".jpg"        Ret = URLDownloadToFile(0, ws.Range("B" & i).Value, strPath, 0, 0)        If Ret = 0 Then            ws.Range("C" & i).Value = "File successfully downloaded"        Else            ws.Range("C" & i).Value = "Unable to download the file"        End If    Next iEnd Sub

For those who don't want to deal with VBA or any other programming language there is a desktop web app that makes it super simple.

Just drop in the excel file, it will download all the images (or files) in an excel file to the folder you select, and if there are names on the B column it will also rename the file.

The latest release can be found on https://github.com/btargac/excel-parser-processor.