Skús nasledujúcu vba procedúru:
1.) Vytvor si na pracovnej ploche nový folder "\Folder XML" ; ak by si použil iný folder treba prepísať aj "cest =sPath" v kóde...
2.) Nahraj si do tohto foldera všetky xml ktoré chceš naimportovať
3.) spusti Excel, otvor v ňom prázdny zošit, spusti VBA (Alt+F11) ; Vo VBA vytvor modul (Inset module) a do neho vlož nasledujúci kód / procedúru.
To by malo stačiť urobiť raz, potom Ti už modul zostane v Personálnych makrách
Sub Import_XML()
Dim wbk As Workbook
Dim sPath As String
sPath = "C:\Users\uzivatel\Desktop\Folder XML\" '<< change path. All xml files in <folder XML>
Dim sFile As String
sFile = Dir(sPath & "*.xml")
'pridá sa nový Excel zošit a naimportuje xml
Do Until sFile = ""
Set wbk = Workbooks.Add
ActiveSheet.Name = sFile
ActiveWorkbook.XmlImport URL:=sPath & sFile, ImportMap:=Nothing, Overwrite:=True, Destination:=[A1]
ActiveWorkbook.SaveAs sPath & Left(sFile, 13) & ".xlsx"
ActiveWorkbook.Close
sFile = Dir()
Loop
End Sub
(pokúšal som sa Ti zaslať jeho kópiu ale Pohoda asi nepustí .bas súbory)
4.) Spusti kód/procedúru (nastav sa do nej kurzorom a stlač F5 alebo zelenú šipku hore)
a) tento kód vytvorí pre každé xml nový prázdny excel súbor
b) naimportuje doň xml
c) nazve a uloží excel do toho istého foldera
PS: Je tam ale nejaký problém s prvým xml. Pozri či je správna jeho xml štruktúra. To druhé zbehlo OK.