【PAD】エクセルデータから複数リストを生成

SET ImportPath TO $'''C:\\SAP_DL\\MfgList.xlsx'''
SET SheetName TO $'''台帳'''
SET DataRange_FirstRow TO 8
SET DataRange_FirstColumn TO 1
SET KeyColumn TO 2
SET DownloadPath TO $'''C:\\SAP_DL\\'''
**REGION エクセルデータの読込
BLOCK Excelプロセス残留防止
ON BLOCK ERROR

END
    Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: ImportPath Visible: True ReadOnly: True UseMachineLocale: False Instance=> ExcelInstance
    Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: SheetName
    Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance GetCellContentsMode: Excel.GetCellContentsMode.TypedValues FirstLineIsHeader: False RangeValue=> ExcelDataAll
    Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: DataRange_FirstColumn StartRow: DataRange_FirstRow EndColumn: ExcelDataAll.Columns.Count EndRow: ExcelDataAll.RowsCount GetCellContentsMode: Excel.GetCellContentsMode.TypedValues FirstLineIsHeader: False RangeValue=> ExcelDataExtracted
    Excel.CloseExcel.Close Instance: ExcelInstance
END
Excel.CloseExcel.Close Instance: ExcelInstance
ON ERROR

END
**ENDREGION
**REGION データの整理
Variables.FilterDataTable DataTable: ExcelDataExtracted FilterParameters: { ^['RULE', 'COLUMN', 'OPERATOR', 'VALUE'], [$'''''', 2, $'''Contains''', $'''U'''], [$'''Or''', 2, $'''Contains''', $'''O'''] } MatchCase: True FilteredDataTable=> FilteredTable_ST
Variables.FilterDataTable DataTable: ExcelDataExtracted FilterParameters: { ^['RULE', 'COLUMN', 'OPERATOR', 'VALUE'], [$'''''', 2, $'''Contains''', $'''V'''] } MatchCase: True FilteredDataTable=> FilteredTable_OD
Variables.RetrieveDataTableColumnIntoList DataTable: FilteredTable_ST ColumnNameOrIndex: KeyColumn - 1 ColumnAsList=> List_ST
Variables.RetrieveDataTableColumnIntoList DataTable: FilteredTable_OD ColumnNameOrIndex: KeyColumn - 1 ColumnAsList=> List_OD
**ENDREGION
**REGION 実際の処理
# ここでList_STを使った処理
Clipboard.SetText Text: List_ST
Clipboard.GetText Text=> ClipboardText_ST
# ここでList_STを使った処理
Clipboard.SetText Text: List_OD
Clipboard.GetText Text=> ClipboardText_OD
**ENDREGION

コメント

タイトルとURLをコピーしました