Umsteigen auf OpenOffice: Von VBA zu OpenOffice-Basic - Teil 2

Zugriff auf Zellen

Ein Tabellenblatt setzt sich zusammen aus einer zweidimensionalen Liste mit Zellen. Jede Zelle ist über ihre X- und Y-Position eindeutig bestimmt. Die linke obere Zelle hat die Position (0 / 0) oder den Namen A1. Das Beispiel in Listing 4 erzeugt ein Objekt, das auf die linke obere Zelle („A1“) verweist und dort einen Text einfügt.

Sub Zellzugriff01
Dim objDatei as Object
Dim objBlaetter As Object
Dim objBlatt As Object
Dim objZelle As Object

objDatei = ThisComponent
objBlatt = objDatei.Sheets(0)
objZelle = objBlatt.getCellByPosition(0, 0)
objZelle.String = "Hallo Leute, ich bin der Neue!"
objBlatt.Columns(0).OptimalWidth = True

End Sub

Hinweis: Ebenso wie der Name der Zelle A1 lautet, wird sie über getCellByPosition(0, 0) zuerst mit dem Wert für die Spalte und anschließend mit dem Zeilenwert angesprochen, also A1 und nicht R1C1 wie bei Excel!