Power Query（M言語）入門
セル値によるExcelシートの条件付き読み込みとデータ結合

let
    // フォルダ内のファイル一覧を取得
    Source = Folder.Files(Excel.CurrentWorkbook(){[Name="Settings"]}[Content]{0}[FullPath]),
    
    // Excelファイル（.xlsx）のみに絞り込む
    ExcelFiles = Table.SelectRows(Source, each Text.EndsWith([Name], ".xlsx"))
in
    ExcelFiles

(TargetA1Value as text) =>
let
    // 1. 共通ソースを参照
    Source = Source_Base,
    
    // 2. 各ファイルの全シート情報（メタデータ）を展開
    AllSheets = Table.AddColumn(Source, "CustomData", each Excel.Workbook([Content])), 
    
    // 3. シートのテーブル情報（Data列）を展開し、シート行のみに絞り込む
    ExpandedSheets = Table.ExpandTableColumn(AllSheets, "CustomData", {"Name", "Data", "Kind"}, {"SheetName", "SheetData", "Kind"}),
    OnlySheets = Table.SelectRows(ExpandedSheets, each ([Kind] = "Sheet")),
    
    // 4. 各シートのA1セルの値を取得（列名に依存しない強化版）
    A1Value = Table.AddColumn(OnlySheets, "A1Value", 
        each try 
            Record.Field(Table.FirstN([SheetData], 1){0}, Table.ColumnNames([SheetData]){0}) 
        otherwise null
    ),
    
    // 5. パラメーターの値 (TargetA1Value) でシートを絞り込む
    FilterByParam = Table.SelectRows(A1Value, each [A1Value] = TargetA1Value),
    
    // 6. 結合対象の [SheetData] 列のみを残す
    SelectData = Table.SelectColumns(FilterByParam, {"SheetData"}),
    
    // 7. 各テーブルを処理し、結合と昇格を行う（エラー処理と構文修正済み）
    ProcessedList = List.Transform(
        SelectData[SheetData], 
        each try
            let
                // 2行スキップ (A1とA2行を除去し、A3のヘッダー行を残す)
                Skipped = Table.Skip(_, 2), 
                // 3行目をヘッダーとして昇格
                Promoted = Table.PromoteHeaders(Skipped, [PromoteAllScalars=true]),
                // 結合前に明示的に列の型を Text にすることで構造を安定化
                Result = Table.TransformColumnTypes(Promoted, 
                    List.Transform(Table.ColumnNames(Promoted), each {_, type text}))
            in
                Result
        otherwise null
    ),
    
    // 8. null (エラー) の要素をリストから除外
    CleanedList = List.RemoveNulls(ProcessedList),
    
    // 9. 全てのテーブルを結合 (CleanedListが空の場合は空テーブルを返す)
    CombinedData = try Table.Combine(CleanedList) otherwise #table({}, {}),
    
    // 10. 最終結果
    FinalResult = CombinedData
in
    FinalResult

let
    // 作成した関数に "A" を引数として渡す
    Result = fn_CombineByA1Value("A")
in
    Result

let
    // 作成した関数に "B" を引数として渡す
    Result = fn_CombineByA1Value("B")
in
    Result

let
    FolderPath = Excel.CurrentWorkbook(){[Name="Settings"]}[Content]{0}[FullPath],
    Source = Folder.Files(FolderPath),
    Filtered = Table.SelectRows(Source, each [Extension] = ".xlsx"),
    Workbook = Table.AddColumn(Filtered, "WB", each Excel.Workbook([Content])),
    Expanded = Table.ExpandTableColumn(Workbook, "WB", {"Name", "Data"}, {"Sheet", "Data"}),
    A1 = Table.AddColumn(Expanded, "A1", each [Data]{0}[Column1])
in
    A1

let
    Process = (DataTable as table, FilterValue as text) =>
    let
        Filter = Table.SelectRows(DataTable, each [A1] = FilterValue),
        Proc = Table.AddColumn(Filter, "ProcData", each Table.PromoteHeaders(Table.Skip([Data],2))),
        Combined = Table.Combine(Proc[ProcData]),
        Typed = Table.TransformColumnTypes(Combined, List.Transform(Table.ColumnNames(Combined), each {_, type text}))
    in
        Typed
in
    Process

ProcessFunction(BaseData, "A")

ProcessFunction(BaseData, "B")