Hallo,
As you can see, I am trying to add an additional sheet to my existing table. I
tried many variations as you can see below. What is the correct version to
handle this case:
Dim Tabelle10 As Object
If oTabellenListe.hasByName("Tabelle10") Then
MsgBox "Tabelle10 ist vorhanden"
Else
oTabellenDokument = ThisComponent
Tabelle10 =
oTabellenDokument.createInstance("com.sun.star.sheet.Spreadsheet")
oTabellenDokument = ThisComponent
rem oTabellenDokument.oTabellenListe.insertByName("Tabelle10", Tabelle1)
rem ThisComponent.getsheets.insertbyName("Tabelle10", Tabelle)
oTabellenDokument.oTabellenListe.insertByName("Tabelle10", Tabelle10)
MsgBox "Tabelle10 ist jetzt vorhanden"
EndIf
rem myDoc.Sheets.insertNewByName("MySheet", 1)
rem myDoc = thisComponent
rem sheet=MyDoc.createInstance("com.sun.star.sheet.Spreadsheet")
rem myDoc.Sheets.insertByName("MySheet", Sheet)
rem thisComponent.getSheets.insertByName("NouvelleFeuille")
Many thanks in advance.
Regards,
Rudi
