Hallo karolus,
erst einmal Danke, dass Du geantwortet hast.
Die Tabelle wird in meinem Programm mit folgendem Code
geöffnet.
Code: Alles auswählen
'**************************************************************
' Tabelle oeffnen
'**************************************************************
'
Sub Tabelle_oeffnen (Tabelle)
Dim Mappe as object
Dim dummy()
dim myFileProp() as new com.sun.star.beans.PropertyValue
url=converttourl("\home\buero\Libreoffice-Basic\eigene-BASIC-Programme\Balkenschwinger-Kenngroeszen.ods")
Mappe = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
Tabelle = Mappe.getSheets().getbyIndex(0)
End Sub
Das funktioniert auch so weit ganz gut, da ich aus dieser Datei (sprich dem ersten Tabellenblatt) Informationen
zum Programm auslese.
Im weiteren Fortlauf des Programms möchte ich die Teilergebnisse in ein zweites Tabellenblatt schreiben, welches ich "Ausgabe" genannt habe.
Zur Kontrolle, ob die CALC-Tabelle noch aktiviert ist, habe ich mit folgender Sequenz
noch einmal vom ersten Tabellenblatt eine Information gezogen, die in "A14" steht. RESULTAT: -> es funktioniert.
Wie aber aktiviere ich jetzt das zweite Tabellenblatt, um da hinein Informationen zu schreiben.
Ich bekomme bei Sheets so wohl auch bei getByName nur Fehlermeldungen.
Meine vergeblichen Versuche stelle ich einmal vor:
Code: Alles auswählen
'AllSheets = Tabelle.Sheets
'msgbox AllSheets.string
msgbox tabelle.getcellRangeByName("A14").string
'aktiviereTabelle_Nummerzwei
Sheets = document.Sheets 'get the container of all Sheets
Blatt = Sheets.getByName("Ausgabe") 'get the sheet named Sheet2
Controller = document.getcurrentController
Controller.setActiveSheet(Blatt)
'Controller = document.getcurrentController
'Controller.setActiveSheet(Sheet)
'Blatt = Sheet.getByName("Ausgabe")
Blatt.getcellRangeByName("A1").String = "Die " & ll & "-te Eigenschwingung hat die Eigenfrequenz " & omr
Da wäre ich dem Ratschlag bzw. der Hilfe eines erfahrenen Programmiers dankbar.
Mit freundlichem Gruß
Werner