XLS-Export eines bestimmten Tabellenblattes

[Postbyme]

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

Code: Alles auswählen

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())

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 entladen und nicht nur das Tabellenblatt 4. Was mache ich falsch ?

Danke

[Postbyme]

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

[Stephan]

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

[Postbyme]

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ß

[Hiker]

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