关于wsp/execl表格数据处理问题？

yeh571

用power automate 做的，供参考：复制粘贴就可以运行以下代码：

Display.SelectFileDialog.SelectFile Title: $'''请选择要处理的文件''' IsTopMost: False CheckIfFileExists: False SelectedFile=> SelectedFile
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: SelectedFile Visible: True ReadOnly: False UseMachineLocale: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: $'''Sheet1'''
Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance GetCellContentsMode: Excel.GetCellContentsMode.TypedValues FirstLineIsHeader: True RangeValue=> ExcelData
Variables.CreateNewList List=> List
LOOP FOREACH Excel_Item IN ExcelData
    IF Excel_Item[9] < Excel_Item[11] THEN
        Variables.AddItemToList Item: Excel_Item[1] List: List
    END
END
Variables.RemoveDuplicateItemsFromList List: List IgnoreCase: False
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
LOOP FOREACH List_Item IN List
    LOOP LoopIndex FROM 2 TO FirstFreeRowOnColumn - 1 STEP 1
        Excel.ReadFromExcel.ReadCell Instance: ExcelInstance StartColumn: $'''B''' StartRow: LoopIndex GetCellContentsMode: Excel.GetCellContentsMode.TypedValues CellValue=> Cell
        IF List_Item = Cell THEN
            Excel.SetColor.SetColorSingleCellPredefined Instance: ExcelInstance StartColumn: $'''B''' StartRow: LoopIndex ColorName: $'''Red'''
        END
    END
END

yeh571

用power automate desktop做的，代码如下：


Display.SelectFileDialog.SelectFile Title: $'''请选择要处理的文件''' IsTopMost: False CheckIfFileExists: False SelectedFile=> SelectedFile
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: SelectedFile Visible: True ReadOnly: False UseMachineLocale: False Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: $'''Sheet1'''
Excel.ReadFromExcel.ReadAllCells Instance: ExcelInstance GetCellContentsMode: Excel.GetCellContentsMode.TypedValues FirstLineIsHeader: True RangeValue=> ExcelData
Variables.CreateNewList List=> List
LOOP FOREACH Excel_Item IN ExcelData
    IF Excel_Item[9] < Excel_Item[11] THEN
        Variables.AddItemToList Item: Excel_Item[1] List: List
    END
END
Variables.RemoveDuplicateItemsFromList List: List IgnoreCase: False
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance Column: $'''B''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
LOOP FOREACH List_Item IN List
    LOOP LoopIndex FROM 2 TO FirstFreeRowOnColumn - 1 STEP 1
        Excel.ReadFromExcel.ReadCell Instance: ExcelInstance StartColumn: $'''B''' StartRow: LoopIndex GetCellContentsMode: Excel.GetCellContentsMode.TypedValues CellValue=> Cell
        IF List_Item = Cell THEN
            Excel.SetColor.SetColorSingleCellPredefined Instance: ExcelInstance StartColumn: $'''B''' StartRow: LoopIndex ColorName: $'''Red'''
        END
    END
END