Efetuando download de arquivo zipado, pelo Excel e descompactando ele

Hoje no forum havia um usuário com esta necessidade, como creio que a resposta que dei para ele será útil para mais gente, posto aqui o código: Sub DownloadEUnzip() Dim FSO, oApp As Object Dim objHttp, DefPath, Arquivo As String Dim Dados() As Byte Dim Fname As Variant Dim FileNameFolder As Variant Dim iFileNumber As Long Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", "http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False objHttp…(read more)

Carlos F P Rocha

Contador, Analista e Desenvolvedor de Sistemas, com especializações em Contabilidade, Finanças e Análise de Dados, além de mestrado em Contabilidade e Finanças e cursos de extensão em instituições de ensino internacionais, nas áreas financeira e de análise de dados (Yale University, University of Michigan e Johns Hopkins University). Professor Universitário de Graduação em Porto Alegre e Pós-Graduação nas cidades de Porto Alegre, Caxias do Sul, Osório e Miami (USA), palestrante em diversos eventos no Brasil e Estados Unidos, desde 2005. Master Coach Trainer, membro da ICF Brasil e IAC. Já treinou mais de 10.000 pessoas, desde o ano 2.000, no Brasil e nos EUA. Saiba mais na página Sobre.

Sem classificação

Leave A Reply Cancelar resposta