Eh eh, mi ero distratto...
Quindi tu hai gia' il nome delle immagini che vuoi scaricare, in colonna B, da B2 in avanti.
Bastera' quindi concatenare l'url del sito col nome immagine per ottenere l'indirizzo completo
Allora vai sul Modulo dove hai inserito il secondo blocco di codice che avevo suggerito, e in coda aggiungi questa penultima versione di macro:
- Codice: Seleziona tutto
Sub caricaPenultima()
Dim cell, shp As Shape, target As Range
myURL = "http://....................." ' ' <<< da impostare
Set Rng = ActiveSheet.Range(Range("B2"), Range("B2").End(xlDown)) ' <<< B2=Inizio elenco
merr = "Errore sulle seguenti immagini:"
For Each cell In Rng
filenam = myURL & cell & ".jpg" ' <<<? Serve & ".jpg" ??
npicname = GetWebFile(filenam, ThisWorkbook.Path & "\AA\") '<<< Vedi Testo
If npicname = 0 Then merr = merr & vbCrLf & filenam
Next
If Len(merr) > Len("Errore sulle seguenti immagini: ") Then
MsgBox (merr)
Else
MsgBox ("Completato...")
End If
End Sub
Compila /controlla le righe marcate <<<; in particolare io suggerirei di inserire l'estensione del file immagine direttamente su colonna B, anche perche' potrebbe esserci un mix di .png, .jpg e altro; a questo punto la riga marcata <<<? deve diventare
- Codice: Seleziona tutto
filenam = myURL & cell
La macro da eseguire e' la Sub caricaPenultima, dopo aver selezionato il foglio con l'elenco immagini.
Ricorda che la subdirectory \AA deve gia' essere stata creata prima di lanciare la macro.
Eventuali file non scaricati saranno riportati in un msgbox finale.
Ciao