Hallo,
Wolfgang Schaible schrieb:
e
-KILL löscht das File (es wird im Programablauf sofort wieder
erzeugt; löschen hilft nicht bei meinem Problem).
-Meine Frage hat der Liste zumindest die kürzere Schreibweise des
IF-Befehls näher gebraucht :-)
-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
mfg
Michael
--
FAQ zu Starbasic -> http://www.starbasicfaq.de
Volltextsuche in SO/OOo -> http://www.dannenhoefer.de/down
music.funplayer Datenbank/Player -> http://www.dannenhoefer.de/funplayer
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
