hallo Michael,
Am Monday 22 May 2006 13:10 schrieb Michael Dannenhöfer:
> > -Meine Fragestellung trifft -wie so oft- nicht mein Problem
> > :=(( , ich will, dass beim 2 Lauf der dieser gespeichert wird
> > und -wenn möglich- das Calc-Sheet des ersten Laufs klaglos
> > verschwindet.
> >
> > Versuche, den Ablauf zu beschreiben:
> > -Der erste Lauf holt eine Calc-Vorlage, diese wird mit Daten
> > aus einer DB beschrieben, dann wird die Vorlage mit
> > 'oDoc.storeAsURL(...)' gespeichert; Calc bleibt zum Betrachten
> > am Schirm.
> > -Beim zweiten Lauf sind 2 Instanzen von Calc auf dem Schirm
> >
> > und obige Meldung wird angezeigt, d.h. 'oDoc.storeAsURL(...)'
> > speichert, aber überschreibt nicht.
> >
> > Meine Frage hätte sein sollen, wie
> > -kann man abfragen, ob es eine 2. Instanz schon gibt, damit man
> > sie mit 'oDoc.close()' beseitigen kann oder
>
> Über den Dateinamen kann man zu Beispiel ein geöffnetes Dokument
> finden:
>
> GesuchteDatei="test.ods"
> Dim oDesktop As Object, oDocs As Object
> Dim oDoc As Object, oComponents As Object
> oComponents = StarDesktop.getComponents()
> oDocs = oComponents.createEnumeration()
> Do While oDocs.hasMoreElements()
> oDoc = oDocs.nextElement()
> datei=odoc.geturl()
> FileN=FileNameoutofPath(datei)
> if FileN=GesuchteDatei then
> mydoc=odoc
> doc.close
> end if
> Loop
Oh Jammer, schon wieder eine perfekte Antwort auf die falsche Frage.
Trotzdem Danke.
Mit 'doc.close' kann man im 1. Lauf das Calc-Sheet verschwinden
lassen, aaaber beim 2. Lauf mault es nun:
com.sun.star.lang.IllegalArgumentException:
Msg: arguments len differ
d.h. in doc. ist nichts mehr drin vom 1. Lauf (was man ooo verzeihen
muss :-) ) und beide Instanzen haben den gleichen File-Namen...
Hmm, eine neue Frage könnte sein (bin nun vorsichtiger beim Fragen),
wie löscht man die Ältere?
Wenn nicht der Ehrgeiz, die Faulheit wäre, könnte die Antwort sein:
Von Hand...
mfG
Wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
