Aiuto per macro per salvataggio file con loro nome
Ciao a tutti, sono nuovo del forum ed anche di VBA ma, nel mio piccolo, insisto fino a quando non trovo una soluzione (ma in questa occasione mi devo rivolgere a voi).
Ho un file in Excel con una range A1:A251.
In ogni cella ho un collegamento ipertestuale che porta ad un file .zip
La macro che vorrei riuscire a fare dovrebbe (data una range di 5 o 10 celle):
aprire il collegamento/1
salvare i vari .zip con il loro nome (quindi fa il download nella stessa cartella in cui ho il file backup_articoli)
chiudere la pagina da cui sono stati scaricati.
Ho provato con questa:
macro
Dim IE As Object
Option Base 0
Sub Test11()
Dim rCell As Range, myRan As Range
Dim iFile As Integer
'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.APPLICATION")
Set myRan = ThisWorkbook.Sheets("PIPPO").Range("A1:A5") '<<< Il foglio nel file che contiene le macro con l' elenco url
'
iFile = 0
For Each rCell In myRan
iFile = iFile + 1
If Not Fetch(rCell.Value, "C:\Users\Utente\Desktop\CARTELLA 2018\backup_articoli_" & iFile & _
Format(Now, "Name_") & rCell.Row & ".zip") Then
MsgBox "error getting page @ " & rCell.Address
End If
Next
End Sub
ma non mi vengono salvati con il loro nome bensì con il nome del File numerato in ordine crescente.
Come posso fare?
Ringrzio anticipatamente.
Luca
[Modificato da Luca2018 04/01/2018 15:06]