BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Выгрузка в OO Calc
 
Пара примеров по Calc есть на этом форуме, но совсем не то, что надо. Меня интересует сего несколько команд.
Если кому-нибудь не трудно...

"Создать приложение" я так понял можно так:
Код
  oApp := OleCreateObject("com.sun.star.ServiceManager") 
//(Хотя как я понял там еще что-то требуется, чтобы "создать" CAlc)


А вот дальше...

Код
 oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги
 oAS:=oWorkBook:Worksheets():Add() //добавление таблицы


 oAS:Name:="Имя табл" //присвоение имени таблице
 oRange:=oAS:Range("A1:F1") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале
 oRange:MergeCells:=.T. //объединение ячеек в интервале
 oRange:value:="Готовые изделия на складе для организации " //запись текста
 oAS:columns(1):ColumnWidth:=7 //ширина 1-й колонки


 oAS:Range("A2"):formula:="Группа"//"Дт счет" //Запись заголовов столбцов

 oRange:=oAS:Range("A1:F2") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале

 oRange:HorizontalAlignment:=xlCenter // по горизонтали - в центре
 oRange:VerticalAlignment:=xlTop //по вертикали - у верхнего края


   oAS:Cells(nLine,2):NumberFormat:="@" //текстовой формат
   oAS:Cells(nLine,2):Value:=(AllTrim(TempF->NNUM))
   oAS:Range("C"+Var2Char(nLine)):WrapText:=.T. //свойство ячеек -перенос текста



 oRange:Borders(11):LineStyle:=xlContinuous //снизу - граница сплошной линией
 oRange:Borders(xlEdgeBottom):Weight:=xlThin //ширина линии - обычная
Изменено: Саак Шахламджян - 04.02.2009 12:42:47
 
Я не увидел строки
Код
WIN32_OLEINITIALIZE()


И в чем Вопросы ?
 
Цитата
nordk пишет:
Я не увидел строки
Код WIN32_OLEINITIALIZE()

И в чем вопросы ?

А я не знаю вообще зачем она нужна?
У меня все и без этого прекрасно работает и в Excele и в Calc.

Вопросы в том, что я не знаю команд.
Например, как задать ширину колонки?
В Excele так:
Код
oAS:columns(1):ColumnWidth:=7 //ширина 1-й колонких


Как например сделать "автоподгонку" высоты ячейки?
В Excel'e я делаю так:
Код
    oAS:Range("C"+Var2Char(nLine)):WrapText:=.T.

Т.е. задавая свойство ячейки чз range. Получается пернос текста.

В OpenOffice нашёл такое свойство:
Код
.getRows.getByIndex(2).OptimalHeight(.T.)

Однако как им пользорваться не совсем понял...

Кое с чем уже успел разобраться, читаю дальше одну статейку...
Изменено: Саак Шахламджян - 04.02.2009 15:00:30
 
Тогда у Вас как я понял Вопросы не по БЭСТ а по OO Calc
 
Цитата
nordk пишет:
Тогда у Вас как я понял Вопросы не по БЭСТ а по OO Calc

Хех, ну само собой! Я, собственно, в начале это и обрисовал...

По Excel, к стати есть и доп описания по его классам. (Помимо того, что в 2007м офисе справки за глаза хватает).
У ОО, к сожалению такой справки нет. Мне почти все удалось сделать, кроме задания ширины столбика и переноса слов...
 
Тогда надо было Вопрос ставить.
Как работать в OO Calc а не выгрузка.
И возможно надо в инете на соответствующих форумах поискать.
 
Цитата
nordk пишет:
Тогда надо было Вопрос ставить.
Как работать в OO Calc а не выгрузка.
И возможно надо в инете на соответствующих форумах поискать.

Здесь тоже были довольно неплохие ссылки, оттуда и почерпнул...
Проще спросить у знающих людей!
В своё время дооолго, помниться, искал как перенести слово в Excel'e, мне повезло тут подсказали...
Думаю, поковыряюсь, добью этот Вопрос сам...
Страницы: 1
Читают тему (гостей: 1)