Download de múltiplos arquivos via Excel
Neste caso basta informar o dados nas células de uma planilha e ler eles através da macro: Sub DownloadEUnzip() 'Declaração de variáveis Dim FSO, oApp As Object Dim objHttp, DefPath, Arquivo, aUrl, aPasta As String Dim Dados() As Byte Dim Fname As Variant Dim FileNameFolder As Variant Dim iFileNumber As Long For i = 1 To 20 'Parâmetros iniciais (personalizáveis) aUrl = Cells(i, 1).Value aPasta = Cells(i, 2).Value Arquivo = aPasta & Cells(i, 3).Value 'Download do Arquivo Set objHttp…(read more)
