1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Работа с Openoffice Calc

Тема в разделе "Lotus - Программирование", создана пользователем azat20, 22 июл 2008.

  1. azat20

    azat20 Well-Known Member

    Репутация:
    0
    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    Добрый день!В Лотусе работаю пока мало. Подскажитке,пожалуйста, как сделать сортировку по полям в OpenOffice Calc. Методы найденные в инете, в частности такого вида
    Dim aSortFields(8) As New com.sun.star.util.SortField
    Dim aSortDesc(0) As New com.sun.star.beans.PropertyValue
    не работают. С object тоже. Как решить задачу без их использования?!

    Код:
    Sub ExportToCalc ( thisView As NotesView )
    Dim thisDoc As NotesDocument
    Dim i As Double
    Dim mass()
    Dim xlWbk As Variant
    
    Set xlglob = CreateObject ( "com.sun.star.ServiceManager" )
    Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop")
    Set document = Desktop.LoadComponentFromURL("private:factory/scalc","_ blank",0,mass)
    Set sheets=Document.getSheets()
    Set xlWbk = sheets.getByIndex(0)
    Set xlglob= Nothing
    
    Set thisDoc = thisView.GetFirstDocument
    If thisDoc Is Nothing Goto exit_sub
    xlWbk.getCellRangeByName("A1:C1").CharWeight=150
    xlWbk.getCellByPosition(0,0).string="Name"
    xlWbk.getCellByPosition(1,0 ).string="Family"
    xlWbk.getCellByPosition(2,0 ).string="Widht"
    i = 2'start from 3 row
    While Not thisDoc Is Nothing
    
    FirstName$ = thisDoc.FirstName(0)
    LastName$ = thisDoc.LastName(0)
    Weight = thisDoc.weight(0)
    
    '___ put values to the row
    xlWbk.getCellByPosition(0,i ).string=FirstName$
    xlWbk.getCellByPosition(1,i ).string=LastName$
    xlWbk.getCellByPosition(2,i ).value=Weight
    i = i + 1
    
    Set thisDoc = thisView.GetNextDocument ( thisDoc )
    xlWbk.Columns().OptimalWidth=True 'autoshirina
    
    Wend
    exit_sub:
    Set xlWbk = Nothing
    Call document.storeToURL("file:///c:/otchetInCalc.ods", mass())
    Set xlglob = Nothing
    Set document = Nothing
    Set sheets = Nothing
    Set desktop = Nothing
    
    End Sub
    Всех благодарю за ответы!
     
Загрузка...

Поделиться этой страницей