OpenOffice.info

Code: Alles auswählen

Private Sub Command1_Click()
    Dim theArray(3) As Double
    
    Dim oSM As Object
    Dim oDesk As Object
    Dim oDoc As Object
    Dim oSheet As Object
    
    Dim arg()
    
    Set oSM = CreateObject("com.sun.star.ServiceManager")
    Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
    Set oDoc = oDesk.loadComponentFromURL("file:///C:\test.ods", "_blank", 0, arg())
    
    theArray(0) = 123
    theArray(1) = 456
    theArray(2) = 789
    theArray(3) = 101
    
    Set oSheet = oDoc.sheets().getByName("Tabelle1")
 
    Call oSheet.getCellRangeByPosition(0, 3, 3, 3).setDataArray(theArray)
End Sub

Code: Alles auswählen

Call oSheet.getCellByPosition(0, 3).SetValue(123)

Code: Alles auswählen

theArray(0) = Array(123)
theArray(1) = Array(456)
theArray(2) = Array(789)
theArray(3) = Array(101)

Code: Alles auswählen

    Dim theArray(0,3) As Double
    theArray(0,0) = 123
    theArray(0,1) = 456
    theArray(0,2) = 789
    theArray(0,3) = 101

Code: Alles auswählen

Sub Set_Text_To_Cell()

Dim oSM                   'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API
Dim arg() 'Ignore it for the moment !
Dim oSheet, oCellrange
Dim theArray(3, 0)

theArray(0, 0) = 456
theArray(1, 0) = 678
theArray(2, 0) = 455
theArray(3, 0) = 1123

'Instanciate OOo : this line is mandatory with VB for OOo API
  Set oSM = CreateObject("com.sun.star.ServiceManager")
'Create the first and most important service
  Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
  
'Create a new doc
  Set oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, arg())
  Set oSheet = oDoc.Sheets.GetByName("Tabelle1") '(0)
  Set oCellrange = oSheet.getCellRangeByPosition(0, 3, 3, 3)
  Call oCellrange.setDataArray(theArray())
End Sub

Code: Alles auswählen

Set oCellrange = oSheet.getCellRangeByPosition(0, 3, 3, 3)

Code: Alles auswählen

Set oCellrange = oSheet.getCellRangeByPosition(3, 0, 3, 3)

Code: Alles auswählen

Dim theArray(0)

theArray(0) = ARRAY(123,456,789,101)

oSheet = ThisComponent.sheets().getByName("Tabelle1")
oSheet.getCellRangeByPosition(0, 3, 3, 3).setDataArray(theArray)

Code: Alles auswählen

Set oSM = CreateObject("com.sun.star.ServiceManager")
'Create the first and most important service
  Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
 Set...
 Call...

Code: Alles auswählen

oDesk=StarDesctop