在powerquery中，类似这样的操作将合并指定硬编码目录中所有xlsx文件中的所有选项卡

let Source = Folder.Files("C:\subdirectory\directory"),
#"Filtered Rows" = Table.SelectRows(Source, each ([Extension] = ".xlsx")),
#"Removed Other Columns" = Table.SelectColumns(#"Filtered Rows",{"Name", "Content"}),
#"Added Custom" = Table.AddColumn(#"Removed Other Columns", "GetFileData", each Excel.Workbook([Content],true)),
#"Expanded GetFileData" = Table.ExpandTableColumn(#"Added Custom", "GetFileData", {"Data", "Hidden", "Item", "Kind", "Name"}, {"Data", "Hidden", "Item", "Kind", "Sheet"}),
#"Removed Columns" = Table.RemoveColumns(#"Expanded GetFileData",{"Content", "Hidden", "Item", "Kind"}),
List = List.Union(List.Transform(#"Removed Columns"[Data], each Table.ColumnNames(_))),
#"Expanded Data" = Table.ExpandTableColumn(#"Removed Columns", "Data", List,List)
in  #"Expanded Data"

或者，为单元格指定一个范围名称，如excel中的path，然后将文件路径放入该单元格，如C：\temp\a.xlsx
然后在powerquery中，使用该范围名代替硬编码文件名，如

let location= Excel.CurrentWorkbook(){[Name="path"]}[Content]{0}[Column1],
Source = Excel.Workbook(File.Contents(location), null, true),                           
...

第二种方法假设选项卡名称是常量。2否则我推荐第一种方法
如果需要，您可以将这两种方法结合使用

要使文件夹位置相对于命名范围为“file_path”（B2，在/here下）的单元格是动态的，请修改其中一个文件/位置（此处为“C：\temp\Folder1\File1.txt”）的普通功率查询数据导入，如下所示：

普通电源查询：

let
    Source = Csv.Document(File.Contents("C:\temp\Folder1\File1.txt"),[Delimiter="   ", Columns=3, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
in
    #"Promoted Headers"

更新的电源查询：

let
    MyFolder = Excel.CurrentWorkbook(){[Name="file_path"]}[Content][Column1]{0},
    Source = Csv.Document(File.Contents(MyFolder),[Delimiter="  ", Columns=3, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
in
    #"Promoted Headers"

即，[Name =”XYZ“]中的文件名XYZ替换为变量MyFolder，定义如下：

MyFolder = Excel.CurrentWorkbook(){[Name="file_path"]}[Content][Column1]

（可选）
包含VB代码，以便在指定范围（“file_path”）的单元格（即gif上方的单元格B2）中的下拉列表每次发生变化时刷新查询-如下所示：* （您不必这样做--例如，您可以通过与查询关联的属性UI轻松地使查询可定期刷新）.. *

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("file_path")) Is Nothing Then
    Application.ScreenUpdating = False
    Calculate
    ActiveWorkbook.Connections("Query - dynamic_file").Refresh
    Application.ScreenUpdating = True
    Calculate
    
    
End If

End Sub

Cristiano Galvão的荣誉（here）了解更多详情回复：动态链接（按上述）。
塔