Excel: busca valores do xml baixado e insere na tabela?

Question

Como faço para forçar o Excel a baixar o link , analisá-lo e formatar os valores em uma tabela toda vez que o O arquivo .xlsx é aberto?

Eu tentei importar o XML e funcionou, mas não sei o que fazer aqui.

Obrigado!

    

Answer 1

Se você estiver usando o Data | Import External Query | New Web Query, existe um parâmetro, RefreshOnFileOpen, que você pode definir como True.

Aqui está um recorte que obtém os dados da rede, mas não o formata (desde que você disse que já conseguiu o trabalho).

'
'
    Range("I12").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://api.eve-central.com/api/evemon", Destination:=Range("I12"))
        .Name = "evemon_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub