Buenos días a todos, 

  Me he registrado hace poco en el foro y estos días he intentado responder a alguna pregunta antes de plantear la mía propia, por aquello del karma 

  Mi consulta es la siguiente: 

 1. El ayuntamiento de Madrid ofrece en su open data los datos de tráfico en tiempo real (cada 5 minutos) de miles de medidores dispuestos por la ciudad. Es un archivo XML que se puede obtener en la siguiente url: 

  informo.munimadrid.es/informo/tmadrid/pm.xml

  2. Usando un script de python he conseguido bajarme los archivos durante un periodo largo de tiempo, nombrando cada archivo con una marca temporal (por ejemplo: 2016-02-17__07-42-59.xml)

  3. En otro foro he encontrado una macro que importa de golpe todos los xml a la misma hoja, uno a continuación de otro.

Es esta:

 Sub From_XML_To_XL()

On Error GoTo errh

Dim myWB As Workbook, WB As Workbook

Set myWB = ThisWorkbook

Dim myPath

myPath = "C:\Desktop\trafico\" '<<< change path

Dim myFile

myFile = Dir(myPath & "*.xml")

Dim t As Long

t = 1

Application.ScreenUpdating = False

Do While myFile <> ""

Set WB = Workbooks.OpenXML(Filename:=myPath & myFile)

WB.Sheets(1).UsedRange.Copy myWB.Sheets(1).Cells(t, "A")

WB.Close False

t = myWB.Sheets(1).UsedRange.Rows.Count + 2

myFile = Dir()

Loop

Application.ScreenUpdating = True

myWB.Save

Exit Sub

errh:

MsgBox "no files xml"

End Sub

Muchas gracias por adelantado

Miguel