MS Excel

Příloha?

Nejlépe zdroj i cíl.citovat

Dobrý den,

nevím, zda je aktuální, ale dnes jsem řešil stejný problém mimo tlačítko import XML. Našel jsem tento kód, třeba se bude hodit.

Sub Import_XML_Dat()

Application.ScreenUpdating = False
Dim TargetSheet As Worksheet
Dim ChooseFIle As Variant
Dim TargetCellAddress As String

TargetCellAddress = Worksheets("List1").Range("A1")

' Nahraje data do List1
Set TargetSheet = ThisWorkbook.Sheets("List1")
TargetSheet.UsedRange.Clear

ChooseFIle = Application.GetOpenFilename("XML File (*.xml), *.xml", , False)

If ChooseFIle = vbNullString Then Exit Sub

ThisWorkbook.XmlImport Url:=ChooseFIle, ImportMap:=Nothing, Overwrite:=True, Destination:=TargetSheet.Range("A1")

Set TargetSheet = Nothing
Application.ScreenUpdating = True

End Subcitovat