OBTENGA imágenes de una url y luego cambie el nombre de la imagen

Question

Tengo una lista de Excel con muchos números de artículos, p. Ej. "23378847". Y quiero que las imágenes de todos mis números de artículos en la lista estén almacenadas en mi carpeta.

Pero el resultado será como debajo. Cabe 23378847.jpg No 152499

http://media.byggtjeneste.no/media/bilde/152499/LargeThumbnail
o
http://www.nobb.no/Nobbnr/OrginalBilde/23378847/152499

¿Hay una manera que puedo hacer unos vales que leen mi archivo y guardar la foto con el mismo número de artículo como en la lista ?

Answer 1

Aquí hay una muestra que te ayudará.

Supongo que su archivo de Excel se verá así. Por favor enmenda el código según corresponda.

Option Explicit 

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 

Dim Ret As Long 

'~~> This is where the images will be saved. Change as applicable 
Const 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 i 
End Sub