Power Automate for desktopでExcelの転記！

今回のゴール

▲こんな感じの請求データ（請求データ.xlsx）を、

▲フォーマットの決まった別のExcelファイルの請求書（請求書.xlsx）へ転記します。

作成したフローの完成図

フローの作成

請求データExcelを読み込む

書き込む処理を作成します

実際に動いている動画

Power Automate for desktopで Excelの転記方法🥰https://t.co/mHcaB765Ee#PowerAutomate #PowerAutomatedesktop #RPA pic.twitter.com/yRpXRaO1Y0

— 🐈‍⬛じょじお@ぶろがー13か月目_ABCオンライン8月生 (@teijilabo) January 19, 2022

▲動画ではわかりやすいように請求書.xlsxを開くときにキーの送信コマンドで「ウィンドウズキー＋↑キー」（ウィンドウ最大化のショートカット）を追加しています。

Robinソースコード

Robinのソースコードです。Power Automate for desktopのフローデザイナーに張り付けることで今回ここで作成したフローを再現できます。

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\請求データ.xlsx''' Visible: True ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelSeikyuData
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelSeikyuData Name: $'''請求データ'''
Excel.GetFirstFreeColumnRow Instance: ExcelSeikyuData FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.ReadFromExcel.ReadCells Instance: ExcelSeikyuData StartColumn: 1 StartRow: 1 EndColumn: FirstFreeColumn - 1 EndRow: FirstFreeRow - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelSeikyuData
Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\請求書テスト.xlsx''' Visible: True ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelSeikyusyo
SET NewVar TO 11
LOOP FOREACH CurrentItem IN ExcelData
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['品目'] Column: 2 Row: NewVar
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['合計'] Column: 3 Row: NewVar
    Variables.IncreaseVariable Value: NewVar IncrementValue: 1 IncreasedValue=> NewVar
END
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelSeikyusyo DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: $'''C:\\Users\\user\\Desktop\\請求書\\請求書'''

請求書のファイル名に今日の日付を自動挿入する場合は？

Excelを保存する時に日付を付けて保存したいケースがあるかと思います。例えば2022年1月18日にフローを実行した場合「請求書_2022-01-18.xlsx」のようにExcelファイル名を命名するケースです。このようなときは「現在の日時を取得します」アクションを使って文字列を作成する方法があります。下記の記事で紹介していますのでご参考になさってください。

読み込まれたExcelDataに空白行がたくさんある場合は？

▲このような空白行を含むExcelの場合、

▲ExcelData変数に無駄な行が含まれてしまいます。（3行目から6行目）

▲このままループをまわしてしまうと、データが入っていない行の分もループが回ってしまって無駄な時間がかかってしまうので上図のように空白かどうかの処理を入れるといいかなと思います。

▲品目列が空白だったら空行であると判断しています。空白だったら「ループを抜ける」アクションでループを抜けます。これによって無駄なループを避けることができます。

Robinソースコード

Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\請求データ.xlsx''' Visible: True ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelSeikyuData
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelSeikyuData Name: $'''請求データ'''
Excel.GetFirstFreeColumnRow Instance: ExcelSeikyuData FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.ReadFromExcel.ReadCells Instance: ExcelSeikyuData StartColumn: 1 StartRow: 1 EndColumn: FirstFreeColumn - 1 EndRow: FirstFreeRow - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelSeikyuData
Excel.LaunchExcel.LaunchAndOpen Path: $'''C:\\Users\\user\\Desktop\\請求書テスト.xlsx''' Visible: True ReadOnly: True LoadAddInsAndMacros: False Instance=> ExcelSeikyusyo
SET NewVar TO 11
LOOP FOREACH CurrentItem IN ExcelData
    IF IsEmpty(CurrentItem['品目']) THEN
        EXIT LOOP
    END
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['品目'] Column: 2 Row: NewVar
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['合計'] Column: 3 Row: NewVar
    Variables.IncreaseVariable Value: NewVar IncrementValue: 1 IncreasedValue=> NewVar
END
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelSeikyusyo DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: $'''C:\\Users\\user\\Desktop\\請求書\\請求書'''

高速に一括で書き込む方法

この記事ではExcelファイルに1セルずつ書きこみを行いました。より高速に書きこむ方法としてDatatableをダンプする方法があります。

書き込み先のExcelファイルのフォーマットによっては使えない場合もありますが、1回のアクションの実行で複数セルに書き込むことができるのでより高速にフローを実行することができます。下記の記事をご参考になさってください。

まとめ

Power Automate学習教材

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