Hallo
Ich möchte Abfragen ob das Tabellenblatt "Steuern" schon existiert .
Dim oDocument, oSheet, oCell, oCell1, oDate, oDate1, oOrt, oTabelle, oNewCell as Object
Dim Zelle0 as Integer
Zelle0 = 2
oDocument=ThisComponent
oSheet=oDocument.Sheets(0)
oCell=oSheet.GetCellByPosition(3,Zelle0)
If Not oDocument.Sheets.GetByName( "Steuern" ) Then
oDocument.Sheets.insertNewByName("Steuern", 3)
oTabelle = oDocument.Sheets(3)
oNewCell = oTabelle.GetCellByPosition(0, 0)
oNewCell.String = "Von"
End If
Leider funktioniert das nicht. Woran könnte das liegen?
MfG
Klaus
Noch eine Anfängerfrage
Moderator: Moderatoren
-
- Beiträge: 7
- Registriert: Mi, 18.02.2004 21:15
- Wohnort: Berlin
- Kontaktdaten:
Weil getByName kein boolean Rückgabewert hat sondern ein Object. Aber schau mal hier. Das geht ziemlich elegant und du warst auch schon ganz nahe dran:
http://api.openoffice.org/docs/common/r ... ccess.html
Nimm die Methode hasByName vom XNameAccess.
http://api.openoffice.org/docs/common/r ... ccess.html
Nimm die Methode hasByName vom XNameAccess.
Code: Alles auswählen
If Not oDocument.Sheets.hasByName( "Steuern" ) Then
oDocument.Sheets.insertNewByName("Steuern", 3)
End If
Meine Installation: AMD Athlon XP 1600+, 512 MB RAM, SuSE Linux 8.2, OpenOffice 1.1
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
-
- Beiträge: 7
- Registriert: Mi, 18.02.2004 21:15
- Wohnort: Berlin
- Kontaktdaten:
Es gibt ein paar Anfänge. Zum einen gibts ein Forum unterklaus_harrer hat geschrieben:Gibt es schon eine Seite wo OpenOffice Macros gesammelt werden und zum Download verfügbar sind?
http://www.kaldewey-online.de/postnuke/ ... um&forum=2
wo einige Macros abgelegt sind. Nicht zum Download, eher Copy und Paste.
Dann gibt es http://www.ooomacros.org jedoch in englisch. Aber das ist das wohl interessanteste Projekt. Wie ich der englischen Mailingliste mitbekommen haben, gibts ein Projekt, das sogenannte Snippets sammelt. Sie haben ein XML-Format definiert. Das Ziel ist eine Sammlung von Scripts. Ich glaube sie wollen auch einen Installer machen, wo das einfach installiert werden kann. Wirklich konkret ist das noch nicht.
Vielleicht kennst du schon Andrew Pitonyaks Macrosammlung. Ein Writer-Dokument (aktuellste Version in englisch) mit einer Unzahl prktischer Beispiele. Wird wohl mal ein Buch werden. Wohl was vom besten das es zurzeit gibt. http://www.pitonyak.org/oo.php
Wie ich weiss wird bald von SuSE Press ein Buch herauskommne, welches sich mit OpenOffice.org Programmierung befasst. Das sieht vielversprechend aus. Ist aber noch nicht im Handel.
Meine Wenigkeit hat ein paar Dokumente erstellt, welche zwar keine Skripts sammelt sondern eher eine Programmiereinführung mit Codebeispielen ist. Zu finden unter http://www.bcwin.ch/ooo/basic/
Weiter bin ich selbst daran involviert ein OOO-Wiki für freie Dokumentation aufzubauen. Auch das ist erst im Entstehen, aber da es ein offenes Wiki sein soll ist da Platz für freie Kreativität, was auch eine Macro-Sammlung sein kann.
Aber um deine Frage präzise zu beanworten: Nein, gibt es nicht.
Meine Installation: AMD Athlon XP 1600+, 512 MB RAM, SuSE Linux 8.2, OpenOffice 1.1
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
Meine Installation: AMD Athlon XP 1600+, 512 MB RAM, SuSE Linux 8.2, OpenOffice 1.1
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/