PADでExcelに行の挿入をしてから書き込みする。（転記）

「Excelワークシートに行を挿入」アクション

Excelに行を挿入するには「Excelワークシートに行を挿入」アクションを使います。このアクションを1回実行すると指定した行に1行挿入します。4行挿入するには、（ループなどを使って）このアクションを4回実行する必要があります。

「Excelワークシートに行を挿入」アクション（Microsoft リファレンス）

フローが動いている動画はこちら

#PowerAutomateDesktop でExcelに行の挿入をしてから転記しました。 https://t.co/gelrgJzTtt #てじらぼ @teijilaboより #RPA #PowerAutomate pic.twitter.com/S64DIh0SGF

— じょじお(定時に帰りたい人) (@teijilabo) January 30, 2022

（STEP1）Excelを読み込む処理の作成

（STEP2）Excelに行の挿入する処理をつくる。

（STEP3）Excelワークシートに書き込む処理をつくる。

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.GetFirstFreeRowOnColumn Instance: ExcelSeikyuData Column: 1 FirstFreeRowOnColumn=> FirstFreeRowOnColumn
Excel.GetFirstFreeColumnRow Instance: ExcelSeikyuData FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.ReadFromExcel.ReadCells Instance: ExcelSeikyuData StartColumn: 1 StartRow: 1 EndColumn: FirstFreeColumn - 1 EndRow: FirstFreeRowOnColumn - 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
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{LWin}{Up}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
SET NumberOfRowsToAdd TO ExcelData.RowsCount - 4
IF NumberOfRowsToAdd >= 1 THEN
    LOOP LoopIndex FROM 1 TO NumberOfRowsToAdd STEP 1
        Excel.InsertRow Instance: ExcelSeikyusyo Index: 14
    END
END
SET CurrentWriteRow TO 11
LOOP FOREACH CurrentItem IN ExcelData
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['品目'] Column: 2 Row: CurrentWriteRow
    Excel.WriteToExcel.WriteCell Instance: ExcelSeikyusyo Value: CurrentItem['合計'] Column: 3 Row: CurrentWriteRow
    Variables.IncreaseVariable Value: CurrentWriteRow IncrementValue: 1 IncreasedValue=> CurrentWriteRow
END
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelSeikyusyo DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: $'''C:\\Users\\user\\Desktop\\請求書\\請求書'''

Power Automate for desktopのフローデザイナーに張り付けることで今回作成フローをご自分のPCで再現することができます。

Excelを今日の日付の名前を付けて保存するには？

下記の記事を参考にしてください。

印刷レイアウト調整のコツ

行の挿入によるページ設定・印刷レイアウト崩れが考えられますので、それを抑えるためのExcelフォーマットでの事前設定について次の記事でまとめたいと思っています。

＞記事準備中

まとめ

Power Automate学習教材

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