Download de arquivos via Excel
Aqui vai uma versão mais genérica do post anterior, para download de arquivos via Excel: 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 'Parâmetros iniciais (personalizáveis) aUrl = " http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip " aPasta = "C:\loteria\temp\" Arquivo = aPasta &…(read more)
