File: FirstLoadComponent.bas

package info (click to toggle)
libreoffice 4%3A25.8.2-3~bpo13%2B1
  • links: PTS, VCS
  • area: main
  • in suites: trixie-backports
  • size: 3,815,276 kB
  • sloc: cpp: 4,378,739; xml: 454,679; java: 257,215; python: 80,874; ansic: 33,824; perl: 30,304; javascript: 19,722; sh: 11,717; makefile: 10,622; cs: 8,865; yacc: 8,549; objc: 2,131; lex: 1,379; asm: 1,231; awk: 996; pascal: 914; csh: 20; sed: 5
file content (41 lines) | stat: -rw-r--r-- 1,613 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'

Sub Main
    desktop = createUnoService("com.sun.star.frame.Desktop")
    Dim args()
    spreadsheet_component = desktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args())

    spreadsheets = spreadsheet_component.getSheets()
    spreadsheets.insertNewByName("MySheet", 0)
    elem_type = spreadsheets.getElementType()
    Msgbox(elem_type.Name)
    sheet = spreadsheets.getByName("MySheet")
    cell = sheet.getCellByPosition(0, 0)
    cell.setValue(21)
    cell = sheet.getCellByPosition(0, 1)
    cell.setValue(21)
    cell = sheet.getCellByPosition(0, 2)
    cell.setFormula("=sum(A1:A2)")

    cell.setPropertyValue("CellStyle", "Result")

    spreadsheet_controller = spreadsheet_component.getCurrentController()
    spreadsheet_controller.setActiveSheet(sheet)
    cell.setPropertyValue("VertJustify", "com.sun.star.table.CellVertJustify.TOP")
    formula_cells = sheet.queryContentCells(com.sun.star.sheet.CellFlags.FORMULA)
    formulas = formula_cells.getCells()
    formula_enum = formulas.createEnumeration()

    Do while formula_enum.hasMoreElements()
        formula_cell = formula_enum.nextElement()
        Msgbox("Formula cell in column " + formula_cell.getCellAddress().Column + _
                     ", row " + formula_cell.getCellAddress().Row + _
                      " contains " + cell.getFormula())
    Loop
End Sub