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
Adjunto | Tamaño |
---|---|
trafico.rar | 17.2 KB |
Ya te contesté aquí
Como ves, no hacen falta macros.
Un saludo