眠るシーラカンスと水底のプログラマー

WAIT 3 

System.RunApplication ApplicationPath: $'''C:\\Program Files (x86)\\Microsoft Office\\root\\Office16\\POWERPNT.EXE''' CommandLineArguments: $'''/C \"C:\\Users\\macni\\Desktop\\202103251826_Power Automate Desktop入門.pptx\"''' WindowStyle: System.ProcessWindowStyle.Normal ProcessId=> AppProcessId
WAIT 2 
MouseAndKeyboard.SendKeys TextToSend: $'''{F5}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: True

SET StringValue TO $'''サンプル'''
Variables.CreateNewList List=> ListValue
Variables.AddItemToList Item: StringValue List: ListValue NewList=> ListValue
Variables.AddItemToList Item: $'''テスト''' List: ListValue NewList=> ListValue
LOOP FOREACH CurrentItem IN ListValue
    File.WriteText File: $'''C:\\Users\\macni\\Documents\\hoge-%CurrentItem%.txt''' TextToWrite: CurrentItem AppendNewLine: True IfFileExists: File.IfFileExists.Append Encoding: File.FileEncoding.Unicode
END

# 操作できない行を操作してエラーを出す
Excel.Launch Visible: True LoadAddInsAndMacros: False Instance=> ExcelInstance
BLOCK sample
ON BLOCK ERROR
    NEXT ACTION
END
    Excel.WriteCell Instance: ExcelInstance Value: $'''throw error''' Column: 0 Row: 0
    ERROR => LastError
END
File.WriteText File: $'''C:\\Users\\macni\\Documents\\PowerAutomateDesktopErrorSample.txt''' TextToWrite: LastError AppendNewLine: True IfFileExists: File.IfFileExists.Append Encoding: File.FileEncoding.Unicode
Display.ShowMessage Title: $'''エラー発生''' Message: LastError Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

Excel.Launch Visible: True LoadAddInsAndMacros: False Instance=> ExcelInstance1
SET i TO 0
LOOP WHILE (i) < (6)
    Excel.WriteCell Instance: ExcelInstance1 Value: i Column: 1 Row: i + 1
    Variables.IncreaseVariable Value: i IncrementValue: 1 IncreasedValue=> i
END
SET i TO 0
Excel.Launch Visible: True LoadAddInsAndMacros: False Instance=> ExcelInstance2
Excel.ReadCells Instance: ExcelInstance1 StartColumn: 1 StartRow: 1 EndColumn: 1 EndRow: 10 ReadAsText: False FirstLineIsHeader: False RangeValue=> ExcelData
Excel.WriteCell Instance: ExcelInstance2 Value: ExcelData Column: 2 Row: 1

CALL Subflow_1