OpenOffice Automation Delphi 如何使用调用函数

Question

请帮我解决以下问题： 我想使用 OOoTools.pas 确定开放办公室计算列中的最大值 界面。 我来的时候就这样：

Procedure FindMaximum(oMySheet : Variant);
Var
            oFuncService : Variant;
Begin
  oFuncService := CreateUnoService('com.sun.star.sheet.FunctionAccess');
  ShowMessage(oFuncService.callFunction('MAX', VarArrayOf([10,20,50])));
End;

这行得通

当然我想填写如下列的值：

ShowMessage(oFuncService.callFunction('MAX', VarArrayOf([oMySheet.getCellRangeByName('K8:K10')])));

我收到消息“com.star.lang.IllegalArgumentException:。”为什么？ 谢谢

Answer 1

我又来了。

是callFunction 方法给出了这个错误还是getCellRangeByName 方法？

procedure FindMaximum(oMySheet : Variant);
var
  oFuncService : Variant;
  oCellRange: Variant;
  oResult: Variant;
begin
  oFuncService := CreateUnoService('com.sun.star.sheet.FunctionAccess');

  //error here?
  oCellRange := oMySheet.getCellRangeByName('K8:K10');

  //or error here?
  oResult := oFuncService.callFunction('MAX', VarArrayOf([oCellRange]));

  ShowMessage(oResult);
end;

我不得不说我觉得documentation有点不清楚。

当您在上面的示例中遇到 callFunction 方法错误时，试试这个：

//CellRange not wrapped in a VariantArray
oResult := oFuncService.callFunction('MAX', oCellRange);