Acumular en hoja de excel multiples archivos xml

2 envíos / 0 nuevos
Último envío
ntyres1
Imagen de ntyres1
Offline
última acción: Hace 4 años 3 meses
alta: 02/07/2016 - 03:04
Puntos: 60
Acumular en hoja de excel multiples archivos xml

Hola amigos. Como primera medida agradacerles y saludarlos ya que soy nuevo en el foro.

 

Mi necesidad es la siguiente.

 

Tengo muchos archivos xml y quiero hacer una hoja electronica que los importe todos.

 

Es muy imporrtante que todos me queden organizados adecuadamente por columnas que tengan el mismo campo coincidente.

He encontrado esta macro en esta pagina

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

 

Me los importa bien en una hoja pero como les comento requiero que toda la informacion quede organizada por columnas de acuerdo al campo respectivo con sus respectivos registros

 

Muchas gracias

 

 

 

Ejemplo las coordenadas donde este la coordenada, el dato de la altura donde este la altura y asi sucesivamente.

Muchas gracias por la ayuda

 

Adjunto algunos xml.

 

Saludos y gracias por su ayuda

 

 

 

AdjuntoTamaño
File trafico.rar17.2 KB
Cron
Imagen de Cron
Offline
última acción: Hace 2 días 10 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Ya te contesté aquíComo ves,

Ya te contesté aquí

Como ves, no hacen falta macros.

Un saludo