Почему то следующий код не работает:

В результате выполнения просто создается приложение Excel, листы остаются на своих местах.

declare
vSheetNum NUMBER := 1;
vSheetAfter NUMBER := 3;
worksheet ole2.Obj_Type;
wsh_after ole2.Obj_Type;
application ole2.Obj_Type;
workbooks ole2.Obj_Type;
workbook ole2.Obj_Type;
arglist ole2.list_type;
begin
application := ole2.create_obj('Excel.Application');

workbooks := ole2.get_obj_property(application, 'Workbooks');

workbook := ole2.get_obj_property(workbooks, 'Add');

arglist := ole2.create_arglist;
ole2.add_arg(arglist, vSheetNum);
worksheet := ole2.get_obj_property (workbook, 'WorkSheets', arglist);
ole2.destroy_arglist(arglist);

arglist := ole2.create_arglist;
ole2.add_arg(arglist, vSheetAfter);
wsh_after := ole2.get_obj_property (workbook, 'WorkSheets', arglist);
ole2.destroy_arglist(arglist);

arglist := ole2.create_arglist;
ole2.add_arg(arglist, wsh_after);
OLE2.INVOKE(worksheet, 'Move', arglist);
ole2.destroy_arglist(arglist);
end;

Пробовал варианты с MoveBefore и MoveAfter также не помогает.