OpenOffice.info

[color=#008000].copyByName[/color] bietet sich da an

http://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/XSpreadsheets.html

Hallo Winfried,

ich hatte glaub nen Denkfehler...
Gedanklich wollte ich den Inhalt der Blätter ersetzen, aber es geht ja um ganze Blätter.
Und da kann er logischerweise Tabelle 1 nicht mit Tabelle 3 der gleichen Datei ersetzen, weil Tabelle 3 dann 2 mal existieren würde.

Richtig? Oder wieder falsch gedacht?

[quote="theindless"]Bitte nicht versuchen, den Sinn zu begreifen! :)[/quote]

Ah, ja.


Der Code ergibt deswegen keinen Sinn, da "Tabelle3" offensichtlich schon vorhanden ist.

Sub Tabellenblatt_aendern															

Dim Spreadsheet As Object, Sheets As Object, SheetName As String
Dim OldSheet As Object, NewSheet As Object

Spreadsheet = ThisComponent
Sheets = Spreadsheet.Sheets
SheetName = Inputbox("Altes Blatt? ") 
OldSheet = Sheets.GetByName(SheetName)
NewSheet = Sheets.GetByIndex(3)

Sheets.replaceByName(OldSheet, NewSheet)

End Sub

Hallo,

nach nochmaligem Nachlesen bin ich zu dem Schluss gekommen, dass zumindest Oldsheet als Object deklariert werden muss.
Neuer Versuch funktioniert leider trotzdem nicht.

[code]
Sub Tabellenblatt_aendern

Dim Spreadsheet As Object, Sheets As Object, SheetName As String
Dim OldSheet As Object, NewSheet As Object

Spreadsheet = ThisComponent
Sheets = Spreadsheet.Sheets
SheetName = Inputbox("Altes Blatt? ")
OldSheet = Sheets.GetByName(SheetName)
NewSheet = Sheets.GetByIndex(3)

Sheets.replaceByName(OldSheet, NewSheet)

End Sub[/code]

Fehlermeldung liegt in Zeile

Sheets.replaceByName(OldSheet, NewSheet)

"com.sun.star. lang.IllegalArgumentExceptionMessage"

Sub Tabellenblatt_aendern																

Dim Spreadsheet As Object, Sheets As Object, SheetName As Object
Dim OldSheet As String, NewSheet As Object

Spreadsheet = ThisComponent
Sheets = Spreadsheet.Sheets
OldSheet = Inputbox("Altes Blatt? ")
NewSheet = Sheets.GetByIndex("Tabelle3")

Sheets.replaceByName(OldSheet, NewSheet)

End Sub

Hallo Miteinander,

ist es möglich mit der ReplaceByName-Methode ein Tabellenblatt durch ein anderes zu ersetzen?

Mein bisheriger Code:

[code]
Sub Tabellenblatt_aendern

Dim Spreadsheet As Object, Sheets As Object, SheetName As Object
Dim OldSheet As String, NewSheet As Object

Spreadsheet = ThisComponent
Sheets = Spreadsheet.Sheets
OldSheet = Inputbox("Altes Blatt? ")
NewSheet = Sheets.GetByIndex("Tabelle3")

Sheets.replaceByName(OldSheet, NewSheet)

End Sub[/code]

Prinzipiell wollte ich ein einzugebendes Tabellenblatt (Inputbox) durch das Tabellenblatt "Tabelle3" ersetzen bzw. in Erweiterung noch durch ein ebenfalls einzugebendes Tabellenblatt (Inputbox).

Danke für die Hilfe!

P.S.: Es ist eine Frage aus meinem Versuch Basic zu lernen. Bitte nicht versuchen, den Sinn zu begreifen! :)