Seite 1 von 1
Dialoge abschalten
Verfasst: Do, 06.09.2007 21:43
von SüdSauerland
Hallo zusammen,
gibt es eine Möglichkeit die Dialoge zu unterbinden:
Beispiel beim löschen einer Tabelle ( JA / NEIN ).
In meinem Fall möchte ich per Basic einer Tabelle löschen ohne Nachfrage von OpenOffice zu bekommen
Zum löschen benutze ich
dispatcher.executeDispatch(document, ".uno:Remove", "", 0, Array())
oder kann man das noch anders machen ?
Das ganze „Projekt“ findet ihr hier
viewtopic.php?f=2&t=13462&start=15
Re: Dialoge abschalten
Verfasst: Do, 06.09.2007 22:50
von Karolus
Hallo
etwa so:
Code: Alles auswählen
sub aktuelles_blatt_loeschen
oDoc = thisComponent
loeschblatt = odoc.currentcontroller.activesheet.name 'aktuelles T.-Blatt
odoc.Sheets.removebyname(loeschblatt)
end sub
Gruß Karo
Re: Dialoge abschalten
Verfasst: Fr, 07.09.2007 19:31
von SüdSauerland
Super, genau das ist das Problem gewesen.
Nun habe ich nur noch das Problem, dass ich auch noch einen Dialog beim speichern der Tabelle habe. Wie bekomme ich den denn weg ?
Hier der Dialog:
Warnung beim Speichern des Dokuments 2007-08-31-Export.ods : Es wurde nur die aktuelle Tabelle gespeichert.
Hintergrund:
Ich erstelle in der Datei 2007-08-31-Export.ods eine neue Tabelle mit dem Namen "daten" dort füge ich dann Daten ein,
diese speichere ich anschließend im TXT Format mit der Dateiendung VCS ab. Danach lösche ich diese Tabelle dann wieder.
Was auch noch bescheiden ist, ist das die dann verbleibende geöffnete Calc Datei den Namen xy.vcs hat und nicht den alten Dateinamen.
Hier der Link zu der eigentlichen Aufgabenstellung:
viewtopic.php?f=2&t=13462&start=15
Gruß
Andreas
Re: Dialoge abschalten
Verfasst: Di, 11.09.2007 09:57
von Christiana
Hallo Andreas,
versuch es mal damit:
Code: Alles auswählen
Sub Speichern
oDoc=thisComponent
Dim sURL as String
sURL = "file:///C:/Terminplaner/VCS/" '& sDatumBeginn & " " & sBeschreibung & ".vcs"
Dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "Text - txt - csv (StarCalc)"
args1(1).Name = "SelectionOnly"
args1(1).Value = true
oDoc.storeAsUrl(sURL, args1())
End Sub
Gruß Christiana
Re: Dialoge abschalten
Verfasst: Do, 13.09.2007 21:41
von SüdSauerland
Super, das war genau das was mir noch gefehlt hat.
DANKE
Andreas