Extract the date to create a report date column from Source.Name column

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RX = (str,exp)=>
        let
            Source = Web.Page(
                     "<script>document.write('" & str & "'.match('" & exp & "')[0]);</script>")
                     [Data]{0}[Children]{0}[Children]{1}[Text]{0}
        in
            Source,
    GetDate = Table.AddColumn(Source, "Date", each RX([Source.Name],"[0-9]{2}([\-/ \.])[0-9]{2}[\-/ \.][0-9]{4}"))
in
    GetDate