OpenOffice.info

Hallo,

wenn ich das "manuell" machen will, würde ich so vorgehen, wie Stephan vorschlug. In einem Macro aber umgekehrt in der offenen Datei alle Blätter ausser dem aktuellen (oder per Name/Numer identifizierten) löschen, dann via Speichern unter als xls speichern.

Zu klärende Fragen:
Vorher einmal als ODS speichern, damit Änderungen in den zu löschenden Blättern gesichert sind?
Wenn das restliche Blatt Referenzen auf eines der gelöschten Blätter hat, wird es Fehler geben - was eventuell der Grund ist es nicht einfach im Export-Filter als Bereich z.B. 2-5 anzubieten.

Mfg, Jörn

Oh ja, pfiffige Möglichkeit - aber mal sehen - ODS sehr groß und würde dann um 98 Prozent wieder schrumpfen. Auf jeden Fall schöne Übung für mich.
Gruß

Wahrscheinlich ist es am Einfachsten das gesamte Dokument nach xls zu exportieren und anschließend die überflüssigen Tabellen des xls zu löschen.


Gruß
Stephan

Hallo,
habe jetzt selber gesehen, dass es für die jeweiligen "FilterName" nicht alle Möglichkeiten gibt - wahrscheinlich für "MS Exel 97" nicht mit Auswahl des Sheets. Ich glaube ich sollte einen anderen Weg gehen und ein neues Calc-Dokument aus dem Makro heraus öffen und die Zellbereiche dorthin kopieren?
Danke

ls_datei = "file:///C:/test/alist.pdf"
Dim pdfProperties(2) as new com.sun.star.beans.PropertyValue
pdfProperties(0).Name = "FilterName"
pdfProperties(0).Value = "writer_pdf_Export"
Dim aFilterData(0) as new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "Selection"
aFilterData(0).Value = ThisComponent.Sheets(3)
pdfProperties(2).Name = "FilterData"
pdfProperties(2).Value = aFilterData()
ThisComponent.storeToURL( ls_datei, pdfProperties())

Hallo,
nachdem mit folgendem (hier im Forum gelernten) Code eine PDF-Datei aus einem Tabellenblatt erstellt werden kann:

[code]
ls_datei = "file:///C:/test/alist.pdf"
Dim pdfProperties(2) as new com.sun.star.beans.PropertyValue
pdfProperties(0).Name = "FilterName"
pdfProperties(0).Value = "writer_pdf_Export"
Dim aFilterData(0) as new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "Selection"
aFilterData(0).Value = ThisComponent.Sheets(3)
pdfProperties(2).Name = "FilterData"
pdfProperties(2).Value = aFilterData()
ThisComponent.storeToURL( ls_datei, pdfProperties())
[/code]

möchte ich mit dem Filter "MS Excel 97" ein Tabellenblatt als Excel-Dokument entladen. Das funktioniert jedoch nur teilweise. Es wir nämlich das komplette Dokument mit allen anderen Tabellenblättern :shock: entladen und nicht nur das Tabellenblatt 4. Was mache ich falsch :roll: ?

Danke