Ciao.
Ho il link ad una immagine in una cella e vorrei che la mia macro me la scaricasse nel mio pc.
Esiste un comendo fatto apposta ?
Grazie.
Moderatori: Anthony47, Flash30005
election.Name = Range("A1").value
Anthony47 ha scritto:Registra una macro mentre esegui Menu /Inserisci /Immagine /da file; come origine ci metti l' url che conosci.
Modifica poi il codice prodotto affinche' l' indirizzo sia prelevato dalla tua cella, e aggiungi al codice S
- Codice: Seleziona tutto
election.Name = Range("A1").value
Ciao, fai sapere dove arrivi.
Sub DownloadFilefromWeb()
Dim strSavePath As String
Dim URL As String, ext As String
Dim buf, ret As Long
URL = Worksheets("Foglio1").Range("A1").Value
strSavePath = ThisWorkbook.Path & "\" & Range("B1").Value & "." & "jpg"
ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
If ret = 0 Then
MsgBox "Download effettuato!"
Else
MsgBox "Error"
End If
End Sub
ActiveSheet.Pictures.Insert( _
"https://order.store.yahoo.net/lib/getpartsonline/getparts_01.gif").Select
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
Anthony47 ha scritto:Quanto ti ho suggerito produce un codice del tipo
- Codice: Seleziona tutto
ActiveSheet.Pictures.Insert( _
"https://order.store.yahoo.net/lib/getpartsonline/getparts_01.gif").Select
Comunque se il tuo obiettivo era salvare l' immagine (come emerge rileggendo la tua domanda), piuttosto che inserirla nel foglio excel, quanto hai adottato e' la soluzione piu' efficace.
A beneficio di chi legge aggiungo che la macro usa l' "API" URLDownloadToFileA, che va definita tramite la seguente dichiarazione:
- Codice: Seleziona tutto
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
Ciao
Anthony47 ha scritto:Con 2007, che fa differenza tra file con macro e senza macro, non so come il registratore si comporta.
Una API non hai bisogno di sapere che e' una Application Programming Interface, basta usarla; comunque credo che il codice che io ho aggiunto a beneficio del forum ce l' avevi gia', giusto?
Ciao
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 61 ospiti