Blueprism 排序 Excel

Question

我正在尝试使用 Blueprism 对 excel 中的列进行排序。我用下面的代码

增强了 Excel VBO

GetInstance(handle).Sort.SortFields.Add2 (Key:=Range(Range))

代码可以编译，但是当我运行它时，我得到以下错误

Internal : Could not execute code stage because exception thrown by code stage: Exception from HRESULT: 0x800A03EC

Answer 1

GetInstance(handle) returns 只有 Excel.Application 的实例映射到那个 handle。 Excel.Application 没有 Sort 属性.

使用像ActiveSheet这样的实例的属性将操作应用于sheet（它有一个Sort 属性）：

GetInstance(handle).ActiveSheet.Sort.SortFields.Add2 (Key:=Range(Range))

Answer 2

您好，为了在 Blue Prism 中使用排序功能，请在代码阶段使用以下代码：

Dim worksheet,Excel As Object

Dim rRng as Object

Dim Header1 as integer

try

Excel = GetWorkbook(handle,Nothing)

worksheet = GetWorkbook(handle,Nothing).ActiveSheet

rRng = worksheet.Range(Data_StartCell,Data_EndCell)

if HeaderPresent = true then

    Header1=1

else if HeaderPresent = false then

    Header1=2

end if

rRng.Sort(Key1:=worksheet.Range(Order_StartCell,Order_EndCell), Order1:=OrderType,Header:=Header1)

Success = true

catch e as Exception

Success = false

End try

使用的输入变量- handle , Data_StartCell , Data_EndCell, Order_StartCell, Order_EndCell, OrderType, HeaderPresent

输出变量-成功

假设您需要 A1:E20 列的数据，并且您只需要对 B 列进行排序。以下是您可以使用的输入：

Data_StartCell- "A1"

Data_EndCell - "E20"

Order_StartCell- "B1"

Order_EndCell- "B20"

OrderType- 1（为Number类型，1为升序，2为降序）

HeaderPresent- True 或 False 取决于您有 headers 或没有

希望该解决方案对您有用。

Blueprism 排序 Excel

Blueprism To Sort Excel

excel

vba

blueprism