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 Sub
citovat