Abre un archivo xml desde excel y pon una imagen de la hoja para ver en qué fila están los encabezados y en cuál fila los datos, generalmente es la fila 2 y 3.
Prueba con la siguiente macro:
Sub AbrirXlm()
'Por.Dante Amor
'
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Database")
ruta = l1.Path
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta & "\"
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'
datos = Array("/cfdi:Emisor/@rfc", _
"/@fecha", _
"/cfdi:Complemento/tfd:TimbreFiscalDigital/@UUID")
'
Application.ScreenUpdating = False
ChDir cp & "\"
archi = Dir("*.xml")
j = 2
Do While archi <> ""
k = 1
Application.StatusBar = "Procesando archivo: " & n
Set l2 = Workbooks.Open(Filename:=archi)
Set h2 = l2.ActiveSheet
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = LBound(datos) To UBound(datos)
Set b = h2.Rows(2).Find(datos(i), lookat:=xlPart)
If Not b Is Nothing Then
h1.Cells(j, k) = h2.Cells(3, b.Column)
k = k + 1
End If
Next
l2.Close False
j = j + 1
archi = Dir()
Loop
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Proceso terminado"
End Sub
[' Si es lo que necesitas. No olvides valorar la respuesta.