Este fórum está sendo desativado

[diogeles]

Pessoal preciso de uma macro que importe arquivos XML de uma determiada pasta suponhamos que a pasta que a pasta seja essa:

C://XMLS

Ou pode ser até mais simples do tipo que ao executar a macro ele abra a janela pra mim escolher o local do XML.

[alexandrevba]

Boa noite!!

Tente algo assim..

Código: Selecionar todos

Sub AleVBA_4512()
'Veja também:
'Import Multiple Xml Files From A Folder Into A Single Sheet With VBA
'https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html
    For Each i In Application.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True)
        ActiveWorkbook.XmlMap("NomeMeuArquivo").Import i
    Next
End Sub

Att

[Piacentini19]

Olá,
Estava a procura de algo como essa importação, mas quando coloco os dados desda macro sempre da erro. Como proceder? No erro informa que a função não esta definida.

[Piacentini19]

Olá.
Eu procurei aqui neste fórum e em outros e encontrei uma macro para realizar a importação, entretanto, quando a importação é realizada com mais um arquivo XML os seguintes sobrepõem os anteriores.
Teria como fazer com que criasse uma lista?
Na planilha em anexo tenho algumas macros com loop, mas não esta funcionando.

Desde já agradeço....

[Pegorini]

Olá Piacentini.

Veja se aplanilha no anexo atende sua necessidade.

A macro foi desenvolvida pelo "fera" Saulo Robles do planilhando.

Fiz apenas uma pequena alteração.

[Piacentini19]

Jovem, segunda vez que você me ajuda rsrs,
Muito obrigado, foi possivel realizar a importação, a coluna de chave fica em colunas diferentes em alguns momentos, mas da pra tratar aqui.
Vai servir muito para as conferencias que quero realizar, junto com a do SPED e o XML vinculado ao banco de dados vai ficar uma coisa linda rsrs.
Mais uma vez, muito obrigado...