Dialoge abschalten

[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

[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

[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

[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

[SüdSauerland]

Super, das war genau das was mir noch gefehlt hat.

DANKE
Andreas