Sub ImportXML()
'
' ImportXML Macro
'
' Keyboard Shortcut: Ctrl+Shift+X
'
    ActiveWorkbook.Queries.Add Name:="srml-8-2020-f2128559-matchresults", _
        Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Xml.Tables(File.Contents(""E:\Work\My Documents\FANoty\srml-8-2020-f2128559-matchresults.xml""))," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Attribute:TimeStamp"", type datetimezone}})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument"" = Table.ExpandTableColumn(#""Changed Type"", ""SoccerDocument"", {""MatchData""}, {""SoccerDocument.MatchData" & _
        """})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument.MatchData"" = Table.ExpandTableColumn(#""Expanded SoccerDocument"", ""SoccerDocument.MatchData"", {""TeamData""}, {""SoccerDocument.MatchData.TeamData""})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument.MatchData.TeamData"" = Table.ExpandTableColumn(#""Expanded SoccerDocument.MatchData"", ""SoccerDocument.MatchData.TeamData"", {""PlayerLineUp" & _
        """}, {""SoccerDocument.MatchData.TeamData.PlayerLineUp""})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument.MatchData.TeamData.PlayerLineUp"" = Table.ExpandTableColumn(#""Expanded SoccerDocument.MatchData.TeamData"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp"", {""MatchPlayer""}, {""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer""})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocume" & _
        "nt.MatchData.TeamData.PlayerLineUp.MatchPlayer"" = Table.ExpandTableColumn(#""Expanded SoccerDocument.MatchData.TeamData.PlayerLineUp"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer"", {""Stat"", ""Attribute:PlayerRef"", ""Attribute:Position"", ""Attribute:ShirtNumber"", ""Attribute:Status"", ""Attribute:Captain"", ""Attribute:SubPosition""}, {""Socc" & _
        "erDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Stat"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Attribute:PlayerRef"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Attribute:Position"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Attribute:ShirtNumber"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.Mat" & _
        "chPlayer.Attribute:Status"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Attribute:Captain"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Attribute:SubPosition""})," & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Stat"" = Table.ExpandTableColumn(#""Expanded SoccerDocument.MatchData.TeamData.PlayerLineUp.M" & _
        "atchPlayer"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Stat"", {""Element:Text"", ""Attribute:Type""}, {""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Stat.Element:Text"", ""SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlayer.Stat.Attribute:Type""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Expanded SoccerDocument.MatchData.TeamData.PlayerLineUp.MatchPlay" & _
        "er.Stat"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=srml-8-2020-f2128559-matchresults;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [srml-8-2020-f2128559-matchresults]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "srml_8_2020_f2128559_matchresults"
        .Refresh BackgroundQuery:=False
    End With
End Sub