多簿多表合并

问题：同一文件夹内的多个工作簿，每个工作簿内工作表数量不定，需要合并到一个工作表里。

注意：每个工作表标题均在第一行

示例工作簿在C盘下的数据源文件夹中，每列标题分别为：日期、城市/地区、品名、类别、销量、单价、销售额

let
    源 = Folder.Files("C:\数据源"),
    重命名的列 = Table.RenameColumns(源,{{"Name", "工作簿名"}}),
    替换的值 = Table.ReplaceValue(重命名的列,".xlsx","",Replacer.ReplaceText,{"工作簿名"}),
    已添加自定义 = Table.AddColumn(替换的值, "工作簿", each Excel.Workbook([Content],true)),
    删除的列 = Table.RemoveColumns(已添加自定义,{"Content", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path"}),
    #"展开的“工作簿”" = Table.ExpandTableColumn(删除的列, "工作簿", {"Name", "Data", "Kind"}, {"工作表名", "Data", "Kind"}),
    筛选的行 = Table.SelectRows(#"展开的“工作簿”", each [Kind] = "Sheet"),
    删除的列1 = Table.RemoveColumns(筛选的行,{"Kind"}),
    #"展开的“Data”" = Table.ExpandTableColumn(删除的列1, "Data", {"日期", "城市/地区", "品名", "类别", "销量", "单价", "销售额"})
in
    #"展开的“Data”"