Sub Llenar_datos_de_Varios_XML()
Dim archivo As Variant
Dim Nombre_archivo As String
Dim libro1 As Workbook
Dim libro2 As Workbook
'El usuario elige los archivos XML
archivo = Application.GetOpenFilename("Archivos XML (*.xml), *.xml", MultiSelect:=True)
'Si no se selecciona ningún archivo, termina la macro
If archivo = False Then Exit Sub
Set libro1 = ActiveWorkbook
'REPITE ESTE PROCESO PARA TODOS LOS ARCHIVOS ELEGIDOS
For w = LBound(archivo) To UBound(archivo)
Nombre_archivo = archivo(w)
'ABRE EL ARCHIVO XML QUE ESTÁ EN LA POSICIÓN W
Workbooks.OpenXML filename:=Nombre_archivo, LoadOption:=xlXmlLoadImportToList
Set libro2 = ActiveWorkbook
''''''''''''''''''''
'AQUÍ PUEDES INSERTAR EL CÓDIGO QUE NECESITES PARA COPIAR
'DEL libro2 AL libro1 TODO LO QUE NECESITES
'Ejemplo:
libro2.Sheets(1).Range("A1:A10").copy libro1.Sheets(1).Range("A1")
''''''''''''''''''''
libro2.Close (false)
libro1.Activate
Next w
Set libro1 = Nothing
Set libro2 = Nothing
End Sub