none
Importar arquivo zipado da web como dados para excel RRS feed

  • Pergunta

  • Olá pessoal

    Será que alguma fera sabe como posso importar arquivos zipados da web como dados para trabalhar no excel.

    O detalhe é que esse arquivo muda conforme o dia ou mês Ex: 13022013.zip ou 032013.zip e seria melhor inserir o nome na hora de importar a macro.

    Pergunto: Como posso criar um tipo de conexão para importar arquivo zipado abaixo? 

    With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;http://www.sitedoarquivo.com.br/022013.ZIP", _
            Destination:=Range("$A$1"))
            .Name = "08022013"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 1256
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = ""
            .TextFileColumnDataTypes = Array(1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        ActiveWindow.SmallScroll Down:=87
        Range("A103").Select
    End Sub

    Lembrando que o código acima importa os dados erroneamente porque só tem a opção de texto e não zip. Fica assim: 

    _–نةüaط"آXV›Qإ‘آ´%°…8UW ±;‍يك/t¶Gلô×n2E&ض³ƒ/

    Desde á agradeço a ajuda.


    FábioNinja

    quarta-feira, 13 de fevereiro de 2013 21:59