OpenOffice чтение документа xls

String LoadOpenOffice(String nf)
{
  Variant App;
  Variant Desktop;
  String s;
  try {
    try {
      App = Variant::CreateObject("com.sun.star.ServiceManager");
      Desktop = App.OleFunction("createInstance", WideString("com.sun.star.frame.Desktop"));
    } catch (...) {
      return "";
    }
    int Bounds[2] = {0, 0};
    Variant OpenParams = VarArrayCreate(Bounds, 1, varVariant);
    Variant MyStruct = App.OleFunction("Bridge_GetStruct",WideString("com.sun.star.beans.PropertyValue"));
    MyStruct.OlePropertySet("name", WideString("Hidden")); // Устанавливаем атрибут "Скрытый"
    MyStruct.OlePropertySet("value", true);
 
    OpenParams.PutElement(MyStruct, 0);
    // Открытие файла
    Variant ODocument = Desktop.OleFunction("LoadComponentFromURL",
        WideString("file://localhost/"+nf), WideString("_blank"), 0,OpenParams); // И открываем документ с этим атрибутом
 
    // Делаем все, что нужно
//?
    // Закрываем документ
    ODocument.OleFunction("close", true);
    ODocument = Unassigned();
 
    // И завершаем Десктоп
    Desktop.OleFunction("terminate");
    Desktop = Unassigned();
  } catch (...) {
    Desktop.OleFunction("terminate");
    Desktop = Unassigned();
    return "";
  }
    return s;
}

String __fastcall TForm1::fromOOCell(int Row, int Column)
{
  Variant Sheet;
  Variant Cell;
  Variant Under;
  try{
    Sheet = ODocument.OlePropertyGet("Sheets",0);
    Cell = Sheet.OlePropertyGet("CellByPosition",Row, Column);//(1)
    Cell = Sheet.OlePropertyGet("Cells",Row, Column);//(2)
    String s = Cell;
    Under = Cell.OlePropertyGet("Font").OlePropertyGet("Underline");//(3)
    int UnderRes = Under;
    return s;
  } catch(...) {
    Application->MessageBox(L"Ошибка чтения ячейки OpenOffice Calc!",L"Ошибка",MB_OK+MB_ICONERROR);
  }
  return "";
}

// ...
        Variant ODocument = Desktop.OleFunction("LoadComponentFromURL",
            WideString("file://localhost/" + nf), WideString("_blank"), 0,
            OpenParams); // И открываем документ с этим атрибутом
 
        Variant OTables = ODocument.OleFunction("getSheets");
        Variant OTable = OTables.OleFunction("getByIndex", 0);
 
        Variant oCell = OTable.OleFunction("getCellByPosition", 1, 0); // 0 строка, 1 столбец
        Variant oCellCursor = oCell.OleFunction("getText").OleFunction("createTextCursor");
        WideString txt = oCell.OleFunction("getText").OleFunction("getString");
 
        ShowMessage(txt); // Вывод
 
        // Закрываем документ
// ...