Importar vários xml para uma planilha do excel

[naldoprofeta]

Olá amigos,

Estou com um problemão. Tenho vários arquivos no formato xml e preciso deles todos juntos em uma planilha do excel. Eu poderia abrir um por um e copiar e colar, mas são muitos e demandaria muito tempo. Queria saber se há algum código vba que faça esta tarefa para mim.

Consegui um código que faz isso com formato txt, mas com xml não funcionou:


Public Sub Juntar()
Dim PASTA_TXT, fso, folder, file, TUDO, aberto, TEXTO, novo

'estar apenas os ficheiros que irão ser processados

'cole no espaço entre aspas o endereço da pasta que contém os arquivos txt, nesta pasta devem estar somente os arquivos que serão processados.

PASTA_TXT = ""

Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.GetFolder(PASTA_TXT)
For Each file In folder.Files
Set aberto = fso.OpenTextFile(file)
TEXTO = aberto.ReadAll
TUDO = TUDO & vbCrLf & vbCrLf & TEXTO
aberto.Close
Next
Set novo = fso.CreateTextFile(PASTA_TXT & "\juntos.txt")
novo.Write TUDO
novo.Close

'Copiar, colar no bloco de notas e gravar como juntar.vbs
End Sub


Se puderem me ajudar agradeço muito.

Abs!