
Announcements
SET InputFilePath TO $'''%''%'''
SET index TO 0
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: InputFilePath Visible: False ReadOnly: False Instance=> ExcelInstance
Excel.GetAllWorksheets Instance: ExcelInstance Worksheets=> SheetNames
LOOP FOREACH sheet IN SheetNames
IF sheet <> SheetName THEN
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: sheet
Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
END
IF index = 0 THEN
SET dtFinal TO { ^ExcelData.Columns }
END
Variables.MergeDataTables FirstDataTable: dtFinal SecondDataTable: ExcelData MergeMode: Variables.MergeMode.AddExtraColumns
Variables.IncreaseVariable Value: index IncrementValue: 1
END
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: SheetName
Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance ReadAsText: False FirstLineIsHeader: True RangeValue=> ExcelData
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: dtFinal Column: $'''A''' Row: ExcelData.RowsCount + 2
Excel.CloseExcel.Close Instance: ExcelInstance