Importar arquivos HTML para o Excel

Question

Ola,

Através de um programa, que eu não tenho acesso a base de dados, eu extraio algumas tabelas que estão no formato HTML, para que eu possa analisá-las eu preciso usar "abrir como" Excel, porém isso leva muito tempo pois são sempre 16 arquivos, gostaria de saber se tem como importar esses arquivos para o Excel mesmo estando em HTML, já tentei todas as formas de importar do Excel e não consegui, acredito que via VBA eu vá conseguir, mas isso esta acima do meu nível de conhecimento da linguagem, alguém poderia me ajudar?

Answer 1

Arley,

Não testei mas talvez funcione algo assim,

MyString = "pega o nome dos arquivos" 

 "URL;file:///C:/Users/mcbranco/Documents/Excel%20Avançado/FORUM%20MICROSOFT/" & MyString

E fazendo um loop para pegar os arquivos que comecem com 021

Ou usando o *

Só testando

M.

Answer 2

Oi Amigo, obrigado pela resposta.

Consegui descobri qual éra o problema, o endereço da pasta estava imcompleto, depois que arrumei deu certo, agora estou com outro problema, se eu consegui solucionar terei alcançado meu objetivo.

Como te falei são sempre 16 arquivos e eles sempre tem o mesmo começo, neste caso um número específico de cada arquivo, porém o restante é a representação do período que eu extrai do progama, este é um exemplo: 021-20110201-20110224.html

então todas as vezes que eu for usar a macro ela não funcionar pq os número restantes nunca serão os mesmos, tem alguma forma de fazer uma macro levando em consideração somente o 3 primeiros números ou quem sabe somente arquivos ".html" que estejam na pasta?

Answer 3

Oi arley

Liguei o gravador de macros e importei uma tabela (era a única) do arquivo cujo nome é: Teste html.htm

Deu nisso aí

Sub Macro2()

'

' Macro2 Macro

'

'

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;file:///C:/Users/mcbranco/Documents/Excel%20Avançado/FORUM%20MICROSOFT/Teste%20Html.htm" _

        , Destination:=Range("$C$3"))

        .Name = "Teste%20Html_1"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlAllTables

        .WebFormatting = xlWebFormattingNone

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

End Sub

Talvez vc possa adaptar mudando a URL (acho que tem ser o caminho completo), o nome do arquivo e o destino.

Os %20 representam espaços.

M.