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 & “D_lotfac.zip”
    
      ‘Download do Arquivo
      Set objHttp = CreateObject(“MSXML2.ServerXMLHTTP”)
      objHttp.Open “GET”, aUrl, False
      objHttp.Send
      If objHttp.Status = “200” Then
          Dados = objHttp.ResponseBody
          iFileNumber = FreeFile
          Open Arquivo For Binary Access Write As #iFileNumber
          Put #iFileNumber, 1, Dados
          Close #iFileNumber
      End If
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>