Calc - alle offenen Tabellen schließen

[ESC]

Hallo zusammen,

ich suche schon seit ein paar Tagen im Netz nach einer Lösung, habe aber noch nichts
gefunden und das macht mich ganz rappelig.

Ich öffne mehrere Tabellen, und möchte nach einem klick auf eine Schaltfläche in einer der Tabellen,
alle offenen Tabellen per Makro speichern und schließen und das ohne Nachfrage- oder Infobox.

In VBA geht das ganz einfach, und ich habe gehofft das ich das auch in OOo irgendwie hinbekomme.

Mit

Code: Alles auswählen

oDoc = thisComponent
odoc.store
odoc.close(true)

schließt sich nur die aktuelle Tabelle (ach ....)


Habt ihr einen Tipp?


Viele Grüße
Eric

[balu]

Hallo Eric,

Ich öffne mehrere Tabellen, und möchte nach einem klick auf eine Schaltfläche in einer der Tabellen,
alle offenen Tabellen per Makro speichern und schließen und das ohne Nachfrage- oder Infobox.

Eine Datei kann mehrere Blätter enthalten, und jedes Blatt kann wiederum viele Tabellen enthalten.
Eine Tabelle ist die mögliche Darstellung von Daten die in Spalten und Zeilen aufgeteilt sind.

Und jetzt versuche noch mal etwas genauer zu beschreiben was Du eigentlich vorhast. Denn zumindest ich werde aus deiner Schilderung nicht so wirklich schlau.



Gruß
balu

[F3K Total]

Vielleicht so:

Code: Alles auswählen

Sub S_Store_And_Close_Calc
    oCE = stardesktop.Components.createEnumeration
    while oCE.hasmoreelements
       oC = oCE.nextelement
       if oC.supportsservice("com.sun.star.sheet.SpreadsheetDocument") then
           oC.store
           oC.close -1
       endif
    wend
End Sub

Gruß R

[ESC]

oh, das ging schnell. Klasse

@balu

ja, da habe ich mich eventuell etwas missverständlich ausgedrückt.
Mit Tabellen meinte ich Dateien

@F3K Total

Dein Code funktioniert wunderbar.

Vielen Dank für Deine Hilfe!!

Viele Grüße
Eric