function openWorkBook(wbname: String; param: Integer; flag: Boolean): OleVariant;
  var
   VariantArray: Variant;
   wb,dt,ss: OleVariant;
   str: Variant;
  begin

   VariantArray:= VarArrayCreate([0, 1], varVariant);
   ss:=CreateOleObject('com.sun.star.ServiceManager');
   dt:=ss.createInstance('com.sun.star.frame.Desktop');
   VariantArray[0]:=createValue(ss,'FilterName','MS Excel 97');
   VariantArray[1]:=createValue(ss,'Hidden', True);
  ShowMessage('vars OK'); // чтоб проверить!
wb:=dt.loadComponentFromURL(convertFileNameToURL(wbname), '_blank', 0, VariantArray);
   ShowMessage('doc OK'); // чтоб проверить!
   result:=wb;
  end;