【PowerAutomate】CSVファイルを読み込み行単位でExcelファイルに書き込むサンプル

# C:\PowerAutomate\都道府県.txtが存在する場合はファイルを読み込みExcelに出力する。
SET RootDir TO $'''C:\\PowerAutomate'''
SET TagetFile TO $'''都道府県'''
SET SystemName TO $'''CSV読み込み'''
IF (File.IfFile.DoesNotExist File: $'''%RootDir%\\%TagetFile%.txt''') THEN
    Display.ShowMessageDialog.ShowMessage Title: SystemName Message: $'''%RootDir%\\%TagetFile%.txtが存在しません。''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed
    EXIT Code: 0
END
File.ReadFromCSVFile.ReadCSV CSVFile: $'''%RootDir%\\%TagetFile%.txt''' Encoding: File.CSVEncoding.UTF8 TrimFields: True FirstLineContainsColumnNames: True ColumnsSeparator: File.CSVColumnsSeparator.SystemDefault CSVTable=> TodofukenList
Excel.LaunchExcel.LaunchUnderExistingProcess Visible: False Instance=> ExcelInstance
SET ColList TO TodofukenList.Columns
SET ColNo TO 1
LOOP FOREACH CurrentItem2 IN ColList
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CurrentItem2 Column: ColNo Row: 1
    Variables.IncreaseVariable Value: ColNo IncrementValue: 1
END
SET RowNo TO 2
LOOP FOREACH CurrentItem IN TodofukenList
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CurrentItem['No'] Column: $'''A''' Row: RowNo
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CurrentItem['都道府県名'] Column: $'''B''' Row: RowNo
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CurrentItem['地域区分'] Column: $'''C''' Row: RowNo
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: CurrentItem['人口'] Column: $'''D''' Row: RowNo
    Variables.IncreaseVariable Value: RowNo IncrementValue: 1
END
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelInstance DocumentFormat: Excel.ExcelFormat.OpenXmlWorkbook DocumentPath: $'''%RootDir%\\%TagetFile%'''