// FilePathFull
"C:\Users\gapage\Desktop\PQ\First.xls" meta [IsParameterQuery=true, Type="Text", IsParameterQueryRequired=true]
// ImportExcel
let
Source = Excel.Workbook(File.Contents(FilePathFull), null, true),
Sheet2 = Source{[Name="Sheet1"]}[Data],
#"Promoted Headers" = Table.PromoteHeaders(Sheet2, [PromoteAllScalars=true]),
#"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Apple", Int64.Type}, {"Pear", Int64.Type}})
in
#"Changed Type"
// fnImportExcel
let
Source = (FilePathFull as text) => let
Source = Excel.Workbook(File.Contents(FilePathFull), null, true),
Sheet2 = Source{[Name="Sheet1"]}[Data],
#"Promoted Headers" = Table.PromoteHeaders(Sheet2, [PromoteAllScalars=true]),
#"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Apple", Int64.Type}, {"Pear", Int64.Type}})
in
#"Changed Type"
in
Source
// PQ (3)
let
Source = Folder.Files("C:\Users\gapage\Desktop\PQ"),
#"Removed Columns" = Table.RemoveColumns(Source,{"Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Content"}),
#"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Folder Path", "Name"}),
#"Merged Columns" = Table.CombineColumns(#"Reordered Columns",{"Folder Path", "Name"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"FullPath"),
#"Invoked Custom Function" = Table.AddColumn(#"Merged Columns", "fnImportExcel", each fnImportExcel([FullPath])),
#"Expanded fnImportExcel" = Table.ExpandTableColumn(#"Invoked Custom Function", "fnImportExcel", {"Apple", "Pear"}, {"Apple", "Pear"}),
#"Removed Columns1" = Table.RemoveColumns(#"Expanded fnImportExcel",{"FullPath"})
in
#"Removed Columns1"