Janlui's post in Ayuda para abrir Archivo XML desde Excel was marked as the answer
Los archivos XML deberán estar en la misma carpeta del archivo Excel.
Sub EXTRAE()
Sheets("READFACT").Select
Range("A1:ZZ10000").ClearContents
RUTA = "TEXT;" & ActiveWorkbook.Path & "\"
Dim ARCH(2) As String
ARCH(1) = "D77368930-KD033F0000001548.xml"
ARCH(2) = "D77368930-KD033F0000001549.xml"
For I = 1 To 2
Cells(1, I) = ARCH(I)
ARCHIVO = ARCH(I)
With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I))
.Name = ARCHIVO
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Next
End Sub
Espero te sirva
Janlui's post in Ayuda para abrir Archivo XML desde Excel was marked as the answer