OpenOffice (Sheet orientation, cell format)

[Alexanderrrr]

Доброго времени суток, уважаемые жители сего замечательного форума!

Пытаюсь подружить ахапту с опенофисом (через COM), да все никак..нужна помощь..

Вопросы следующие:

1. Каким образом установить ориентацию листа, поля? Т.е. элементы pagesetup..
2. Каким образом отформатировать дробное число с определенным количеством знаков после запятой?

Очень жду ответов, благодарю спасибками

[Alexanderrrr]

ап. Неужели нет решения?..
мне достаточно намеков, в какую сторону копать..код приводить необязательно.

[S.Kuskov]

Для MS Office, стандартным путём поиска ответа на вопросы а как программно (через COM) сделать то-то и то-то, является запись макроса, и дальнейший анализ его кода. Благо делается это в два клика мышкой, а внутренний интерфейс (VBA) совпадает с внешним (COM).

P.S.: Как с этим дело обстоит в OpenOffice я не знаю

[Alexanderrrr]

Да, с майкрософт офисом все отлично..
Спасибо и на этом

вот с опенфисом как быть..многое получилось сделать и границы и ширину колонок..а вот эти два момента пока никак не решу..

[slava]

Цитата:

Сообщение от Alexanderrrr

ап. Неужели нет решения?..
мне достаточно намеков, в какую сторону копать..код приводить необязательно.

если кода не надо, то просто перечислю файлы, которые помогли мне когда писал выгрузку в OO
Learn.OpenOffice.org.Spreadsheet.Macro.Programming.pdf
"OpenOffice.org.BASIC Guide.pdf"
OpenOffice_Macros_rus.pdf

в принципе, они легко находятся через google

[Alexanderrrr]

Спасибо, почитал..
Решил сделать на основе template. Проблем меньше.

[Alexanderrrr]

Долго бился с OO, конечно. В конце концов оказалось проще сделать выгрузку отчета на базе template (шаблона).

Вот пример создания экземпляра документа OO из шаблона:

void createdocument()
{
    COM MyStruct;
    COM oDeskTop;
    int i;
    COMVariant arg;
    COMVariant byte;
    Array arr = new Array(Types::Class);
    ComDispFunction Func;
    COMVariant varArg1 = new COMVariant();
    COMVariant var = new COMVariant();
    str filepath;
;
    //Создание экземпляра OpenOffice.org
    OpenOffice = new Com("com.sun.star.ServiceManager");
    oDeskTop = OpenOffice.CreateInstance("com.sun.star.frame.Desktop");

    MyStruct = OpenOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    Func = new COMDispFunction(MyStruct, "Name",  COMDispContext::PropertyPut);
    varArg1.bStr("AsTemplate");
    Func.call(varArg1);

    Func = new COMDispFunction(MyStruct, "Value",  COMDispContext::PropertyPut);
    varArg1.boolean(true);
    Func.call(varArg1);

    var = COMVariant::createFromCOM(MyStruct);
    arr.value(1,var);

    // Создание документа
    arg = COMVariant::createFromArray(arr);
    filepath = "file://///path_to_template";
    oDocument = oDeskTop.LoadComponentFromURL(filepath, "_blank", 0, arg);
}

Обращение к листу:

    oSheets   = oDocument.getSheets();
    oSheet    = oSheets.getByIndex(0);

Вставка значения в ячейку:

oRange = oSheet.getCellByPosition(5,0);
oRange.Setstring("Пример");

Форматирование ячейки:

    #define.BOLD(150)
    #define.FONTNAME("Arial Cyr")
    #define.FONTHEIGHT(10)
;
oRange.setPropertyValue("CharWeight", #BOLD);
oRange.setPropertyValue("CharFontName", #FONTNAME);
oRange.setPropertyValue("CharHeight", #FONTHEIGHT);
oRange.setPropertyValue("HoriJustify",2);

Объединение ячейки:

oRange.merge(true);

Видимость столбца:

    oColumn = oSheet.getColumns();
    oColumn_new=oColumn.getByIndex(0);
    oColumn_new.setPropertyValue("IsVisible", False);

Ширина столбца:

    oColumn = oSheet.getColumns();
    oColumn_new=oColumn.getByIndex(0);
    oColumn_new.setPropertyValue("Width",2440);

Для установки границ ячейки применяю отдельный метод:

void SetBorder(COM range,boolean _left=true,boolean _right=true,boolean _top=true,boolean _bottom=true)
{
    COM MyStruct;
    ComDispFunction func;
    COMVariant varArg1 = new COMVariant();
;
    MyStruct = OpenOffice.Bridge_GetStruct("com.sun.star.table.BorderLine");

    func = new COMDispFunction(MyStruct, "OuterLineWidth",  COMDispContext::PropertyPut);
    varArg1.int(1);
    func.call(varArg1);

    func = new COMDispFunction(MyStruct, "InnerLineWidth",  COMDispContext::PropertyPut);
    varArg1.int(0);
    func.call(varArg1);

    func = new COMDispFunction(MyStruct, "LineDistance",  COMDispContext::PropertyPut);
    varArg1.int(0);
    func.call(varArg1);

    if (_top)
    range.SetPropertyValue('TopBorder', MyStruct);
    if (_left)
    range.SetPropertyValue('LeftBorder', MyStruct);
    if (_right)
    range.SetPropertyValue('RightBorder', MyStruct);
    if (_bottom)
    range.SetPropertyValue('BottomBorder', MyStruct);
}

Пример использования:

    oRange = oSheet.getCellRangeByName("A1:B1");
    this.SetBorder(oRange);

Для моих задач этого мне хватило. Такие вещи, как: ориентация листа, масштаб, поля..это все в template выставил..
Надеюсь это кому-то поможет..

[sable102]

Подскажите пожалуйста.
хочу добавить диапазон значении в таком виде.

    COM Document, Sheets, Sheet, Range;
    ArrayExtend_RU  line = new ArrayExtend_RU(Types::String,3);
    .....
    Sheets   = Document.getSheets();
    Sheet    = Sheets.getByIndex(0);
    Range    = Sheet.getCellRangeByName("A2:C2");
    line.value(1, "a");
    line.value(2, "b");
    line.value(3, "c");
    Range.Value2(line);

выдает ошибку

  : COM     "Value2".

как его правильно вывести ?

[sable102]

Совсем не хочет строку вставлять он у меня, по всякому перепробовал
Вставка диапазона в ОО делается методом setDataArray(). но не могу подобрать параметр, тип параметра для передачи.
По всякому пробовал

    COM Document, Sheets, Sheet, Range;
    Array arr = new Array(Types::Class);
    COMVariant var;
............
    Sheets   = Document.getSheets();
    Sheet    = Sheets.getByIndex(0);
    Range    = Sheet.getCellRangeByName("A2:C2");
   
    arr.value(1, COMVariant::createFromStr("a"));
    arr.value(2, COMVariant::createFromDate(systemdateget()));
    arr.value(3, COMVariant::createFromInt(1));

    var     = ComVariant::createFromArray(arr);
    Range.setDataArray(var);

и так тоже

    COM Document, Sheets, Sheet, Range;
    Array arr = new Array(Types::Class);
   
    COMVariant var_sf = new COMVariant(
                        COMVariantInOut::IN_OUT,
                        COMVariantType::VT_SAFEARRAY);
............
    Sheets   = Document.getSheets();
    Sheet    = Sheets.getByIndex(0);
    Range    = Sheet.getCellRangeByName("A2:C2");
   
    arr.value(1, COMVariant::createFromStr("a"));
    arr.value(2, COMVariant::createFromDate(systemdateget()));
    arr.value(3, COMVariant::createFromInt(1));
    
    var_sf.safeArray(arr, COMVariantType::VT_VARIANT);
    Range.setDataArray(var_sf);

Все ведет к ошибке

:
 "setDataArray"  COM-  "<неизвестно>"    0x80020009 (DISP_E_EXCEPTION), 
 : [automation bridge]com.sun.star.script.CannotConvertException 
in UnoConversionUtilities<T>::variantToAny! Message: conversion not possible!.

помогите советом, может я вообще не туда копаю((

[sable102]

тишина, печаль(

[Xardas]

А что мешает написать метод, выводящий массив (или контейнер) поэлементно?

container   string;
.....
for (col = 1; col <= conlen(string); col++)
  {
   Cell = Sheet.getCellByPosition(col - 1, row - 1);
   Cell.Value = conpeek(string, col);
  }

[sable102]

Цитата:

Сообщение от Xardas

массив (или контейнер) поэлементно

Так же будет медленно, если в строке, допустим, 15-20 элементов, хотелось бы вставить одним обращением к OO.

[Sada]

медленно - не будет!


вообще тут много много много раз обсуждалось как быстро выгружать в эксель. TextBuffer, ADO и тд и тп.
Оу сорри это опен офис, не знаю как там...