Come Salvare le Immagini Dei Rispettivi Link Nella Sottocartella

[A.MaurizioPartecipante A.Maurizio]

Ciao a tutti da Maurizio
E questo é il mio problema:
Da una pagina web scarico dei link e li inserisco nel foglio di Excel partendo dalla cella (B8:B15) e fin qui tutto ok

Ora quello che vorrei fare e riuscire a salvare le relative immagini nella mia Sottocartella di lavoro chiamata (Image)
Come e possibile ottenere tutto ciò ?
Grazie sin da ora per tutto l'aiuto che vorrete darmi in merito 
Saluti da A.Maurizio

(P.S) Ho ripreso il tutto in quanto dalla fretta non mi ero accorto che avevo messo i link ; Ma non la procedura per estrarre il tutto 
Ora con questo file e tutto ok§§Mi mancherebbe solo più sapere come salvare le immagini estratte tutte le volte grazie

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 51 pts]

Penso che dovresti descrivere dettagliatamente come opera il tuo codice e cosa manca. Nella sotto cartella ci sono già delle immagini

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel si hai ragione quando dici che nella mia sottocartella ci sono già delle immagini.

Però quelle le ho messe io manualmente come prova finale.

Però com proprio partendo dai link che di volta in volta si estraggono le immagini .

Però se io le indirizzo solo nelle dovute celle quando la pagina di excel e un po' piena di dati.

La prima volta che avvio il tutto esse  si posizionano tutte nelle dovute celle .

Mentre se ripeto l'azione più volte di estrazione  

Tutte le immagini vengono depositate tutte nella cella A2 e non c'è verso di metterle al proprio posto .

A patto che io riavvii nuovamente l'applicazione .

Ecco il perché mi chiedevo se ci fosse un metodo per salvare le immagini che estraggo per poi richiamarle con un nome univoco valevole ogni volta .

Tutto qui.

Ma se voi avete altri metodi più validi suggeriscimi pure 

Grazie di tutto 

Saluti da Maurizio

[patelModeratore patel Karma: 51 pts]

prova così

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

Sub ScaricaImmagini()
Set miorange = Range("B8:B15") 
For Each cell In miorange
    fname = "F:\Download\A\" & Right(cell.Text, Len(cell.Text) - InStrRev(cell.Text, "/"))
    ret = URLDownloadToFile(0, cell.Text, fname, 0, 0)
Next
End Sub

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel per prima cosa grazie per il tuo intervento
Ma visto che provandolo cosi come me lo hai scritto tu ; non mi funzionava
Io ho pensato di modificare questa parte del tuo Programma

`fname =  inserendo semplicemente anche   ThisWorkbook.Path & "\Image\" & Right(cell.Text, Len(cell.Text) - InStrRev(cell.Text, "/"))
ret = URLDownloadToFile(0, cell.Text, fname, 0, 0)`

Hora Devo dire che il tutto funziona alla grande
Il Problema però e che mi salva  solo le prime 3 Immagini delle otto dichiarate
Perché ?
Come posso risolvere questo problema !
Grazie ancora di tutto  

(P.S) Ho capito solo ora il perché non mi salva tutte le immagini inerenti hai link Estratti
E la cosa strana e perché : Essendoci 5 link che riportano la stessa immagine ma in posizioni diverse.
Il tuo programma estrae solo la prima immagine non univoca alle altre .
però comunque non avendo un nome o un numero seriale come ad esempio:
(Foto1 - Foto2)  oppure semplicemente (1- 2 - 3 ) ecc...!
Mi sarebbe impossibile poterle recuperare in un secondo momento; Perché dovrei conoscere a priori la loro Denominazione.
Ma non importa Grazie ancora di tutto sei fantastico come sempre
Saluti sinceri da A.Maurizio

 

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel Ascolta :

Ti scrivo in quanto vorrei dirti ché non devi più preoccuparti di quanto ho scritto sopra ("Penultimo Mio Post")

Perché anche se è poco professionale dal punto di vista di un programmatore come te (Professionale a tutti gli effetti )
Ho comunque risolto il mio problema creando per otto Volte la stessa tua Routine.
Con l'unica variante che conoscevo già che e questa ;

Sub ScaricaImmagini9()
Set miorange1 = Range("B8")
For Each cell In miorange1
    fname = ThisWorkbook.Path & "\image\" & Range("A8").Value & "." & "png"
    ret = URLDownloadToFile(0, cell.Text, fname, 0, 0)
Next
End Sub

Tutto qui !

Ciao e grazie Infinite per il tuo supporto
Sei comunque Fantastico Grazie e buona serata

[Autore]

Articoli