【PAD】読み込んだExcel表を1行ずつループで取り出す方法の解説

前回のおさらい

前回の記事では、Excelファイルから表領域を読み込み、読み込んだDatatable型変から値を取り出す方法について学習しました。この記事ではループ処理を組み合わせてDatatable型変数を操作する方法について学習します。

使用するテスト用ダミーデータ

使用するダミーデータ

列1	社員番号	名前	性別	生年月日	電話番号	携帯番号	メール	郵便番号	住所
1	００００１	田中 戴三	男	1989/3/9	03-3388-3419	070-6029-5912	taizou89@example.com	132-0023	東京都江戸川区西一之江4-8-1-8F
2	００００２	松野 勝司	男	1977/7/2		090-0866-3992	ntm6048341@goo.ne.jp	604-8341	京都府京都市中京区岩上町4-1-3
3	００００３	小倉 幸四郎	男	1994/3/2	018-536-4457	070-5908-3506	k-ogura@goo.ne.jp	018-1617	秋田県南秋田郡八郎潟町イカリ8-11-6
4	００００４	宮下 秋徳	男	1987/6/13	078-408-7352		akinorimiyasita@goo.ne.jp	674-0082	兵庫県明石市魚住町中尾8-6-6

▲前回と同様の上のダミーデータを使って検証していきます。このままExcelに張り付けると表組みを維持したまま張り付けることができます。テスト用にお使いください。

使用するフロー

前回の記事で作成したExcelをDatatableとして読み込むフローをベースに検証していきます。

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\アドレスリスト.xlsx''' Visible: False ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByIndex Instance: ExcelInstance Index: 1
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: 1 StartRow: 1 EndColumn: $'''J''' EndRow: FirstFreeRowOnColumn - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance

▲フローデザイナーに張り付けてフローを再現することができます。

1行ずつ取り出す方法

1行ずつ特定の列だけ取り出す方法

CurrentRowに[インデックス]か[列名]を渡すことで特定の値を取り出すことができます。例えば各行の[名前]列と[メール]列だけ取り出してみます。

For eachを使うとDatatableから1行ずつリスト型変数として取り出せる

▲For eachを使うとDatatableから1行ずつリスト型変数として取り出すことができます。リスト型の変数は[インデックス]や[‘列名’]と指定することで値を1個ずつ取り出すことができます。

フローが実際に動いている動画

Robinソースコード

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\アドレスリスト.xlsx''' Visible: False ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByIndex Instance: ExcelInstance Index: 1
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: 1 StartRow: 1 EndColumn: $'''J''' EndRow: FirstFreeRowOnColumn - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
LOOP FOREACH CurrentRow IN ExcelData
    Display.ShowMessageDialog.ShowMessage Message: $'''%CurrentRow['名前']%さんのメールアドレスは%CurrentRow['メール']%です。''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed
END

1行ずつ全セル取り出す方法（ループのネスト）

Robinソースコード

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\アドレスリスト.xlsx''' Visible: False ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByIndex Instance: ExcelInstance Index: 1
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: 1 StartRow: 1 EndColumn: $'''J''' EndRow: FirstFreeRowOnColumn - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
LOOP FOREACH CurrentRow IN ExcelData
    LOOP FOREACH CurrentData IN CurrentRow
        Display.ShowMessageDialog.ShowMessage Message: CurrentData Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed
    END
END

特定の行だけを取り出す方法

とある製品番号を基に、商品マスタから該当の製品のレコード（行）を照会するというケースを想定したいと思います。条件分岐を使って「製品番号列が〇〇だったら」というように処理を作成します。

今回はダミーデータを使って社員番号が「００００３」の社員の名前を照会したいと思います。

Robinソースコード

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\アドレスリスト.xlsx''' Visible: False ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByIndex Instance: ExcelInstance Index: 1
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: 1 StartRow: 1 EndColumn: $'''J''' EndRow: FirstFreeRowOnColumn - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
LOOP FOREACH CurrentRow IN ExcelData
    IF CurrentRow['社員番号'] = $'''００００３''' THEN
        Display.ShowMessageDialog.ShowMessage Message: $'''社員番号00003の社員は%CurrentRow['名前']%さんです。''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed
        EXIT LOOP
    END
END

Datatableを扱ったその他の記事

まとめ

Power Automate学習教材

Microsoft 365/ Power Automate / Power Platform / Google Apps Script…