Ein einzelnes Tabellenblatt in mehrere Dateien speichern?

[Gert Seler]

Hallo Lines,
der Wunsch ist ja berechtigt, aber in diesem "Calc-Forum" werden generell Hilfen zu "Calc-spezifischen Themen" und weniger zu
"Star-, OOo-Basic" Themen gegeben. Dazu ist speziell das Forum "OOo-Basic" zuständig.
Die von Dir angegebene "Wiki-Seite" befasst sich ebenso mit der Sprache "Star.- OOo-Basic". Das Modul weiter unten auf der wiki-Seite ist eher
hilfreich, das es zeigt, das generell zuerst die "Variablen" mit "Dim" deklariert werden, bevor eine Berechnung stattfinden kann.
Die Zeile

For i=0 to 2

gehört nicht an diese Stelle und die Variable (i=integer) wurde noch nicht deklariert.

Weiterhelfen kann ich Dir leider nicht, werde aber im "Internet" weitersuchen.
Wende Dich bitte an die Kollegen der "OOo-Basic-Hilfe".

mfg
Gert

[Gert Seler]

Hallo Lines,
habe im Internet immerhin schon mal ein "Star-Basic-Handbuch" zum lesen gefunden :

http://docs.sun.com/app/docs/doc/819-1326

und wenn Du in diesem Handbuch das Kapitel 7 "Tabellendokumente" durchliest sollte Dein Wunsch erfüllt werden :

http://docs.sun.com/app/docs/doc/819-1326/faail?a=view

Der "Star Syntax" muß in "OOo-Syntax" gewandelt werden.
Ich hoffe dies und das "OOo-Basic-Forum" helfen Dir weiter.

mfg
Gert

[Karolus]

Hallo Lines

Ich vermute es gibt keine direkte Möglichkeit nur einzelne Tabellenblätter eines Calcdokuments in eine Calc-datei abzuspeichern, der Umweg über eine Csv- Datei wäre evtl. möglich aber nicht besonders praktisch.

Versuch doch mal das/die nicht benötigten Blätter vor dem Abspeichern über: -->Ausschneiden' zu entfernen, und nachher wieder einzufügen.

Dein Beispiel zum Abspeichern unter mehreren Namen funktioniert hier mit kleinen Veränderungen:

Code: Alles auswählen

sub save2multiname
  oDoc = thisComponent
  oSheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
 
For i= 0 to 2
 '[Zelle A1 und A2 und A3 als Beispiel]
  afilename = oSheet.getCellByPosition(0, i).string
  Path = "file:///home/lines/Klasse_7/" '[Pfad anpassen bei Linux]
'  Path = "file:///E:/daten/kunden/rechnungen/" '[Pfad anpassen bei Windows]
  dim args1() 'Dummyargument
  apfad = path & afilename & ".ods"
oDoc.storeasurl(apfad,args1())
Next i
end sub

Gruß Karo