OpenOffice.info

sub Main
    dim args1(1) as new com.sun.star.beans.PropertyValue
    odoc = Thiscomponent
    ocontroller = odoc.currentcontroller
    sActivesheet = ocontroller.activesheet.name
    sUrl = "file:///D:/csv/" & sActivesheet & ".csv"
    args1(0).Name = "FilterName"
    args1(0).Value = "Text - txt - csv (StarCalc)"
    args1(1).Name = "FilterOptions"
    args1(1).Value = "59,34,12,1,,0,false,true,true"
    thiscomponent.storetourl(sUrl,args1())
end sub

Hi,
dies sollte reichen:[code]
sub Main
dim args1(1) as new com.sun.star.beans.PropertyValue
odoc = Thiscomponent
ocontroller = odoc.currentcontroller
sActivesheet = ocontroller.activesheet.name
sUrl = "file:///D:/csv/" & sActivesheet & ".csv"
args1(0).Name = "FilterName"
args1(0).Value = "Text - txt - csv (StarCalc)"
args1(1).Name = "FilterOptions"
args1(1).Value = "59,34,12,1,,0,false,true,true"
thiscomponent.storetourl(sUrl,args1())
end sub[/code]
Gruß R

Hi,
[quote="Karsten Hahn"]Lässt sich ein solches Verhalten prinzipiell erreichen, möglicherweise mit einem Makro?[/quote]
Ja, mit einem Makro geht das. Dafür brauchst Du Deine Filteroptionen, die du beim Speichern als .csv einstellst.
Daher in zwei Schritten:
1.) Einmal ein Makro während des Speichervorganges, wie du es gewohnt bist, aufnehmen. Die Filteroptionen werden aufgezeichnet.
2.) Ein eigenes Makro unter Verwendung dieser Optionen anlegen.

Zu 1.)
[list][*]Calc Datei öffnen
[*]Extras/Makros/Makro aufzeichnen
[*]Datei/Speichern unter -> .csv -> Haken bei Filtereinstellungen bearbeiten -> Speichern ->ggf. aktuelles Format beibehalten
[*]Filteroptionen einstellen wie benötigt -> OK -> OK
[*]Aufzeichnung beenden -> Neues Modul -> Main überschreiben -> Speichern[/list]

Zu 2.)
[list][*]ALT+F11 drücken -> zu Main navigieren -> Bearbeiten
[*]Du solltest jetzt etwa dies sehen:[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/<Dein User>/Desktop/Export_CSV.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "9,34,ANSI,1,,0,false,true,true"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub[/code]
[*]Davon sind diese Zeilen weiterzuverwenden[code]dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/<Dein User>/Desktop/Tabelle1.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "9,34,ANSI,1,,0,false,true,true"[/code]
[*]Ändere sie wie folgt:[code]sub S_Save_as_CSV
dim args1(1) as new com.sun.star.beans.PropertyValue
sUrl = "file:///C:/Users/<Dein User>/Desktop/Tabelle1.csv"
args1(0).Name = "FilterName"
args1(0).Value = "Text - txt - csv (StarCalc)"
args1(1).Name = "FilterOptions"
args1(1).Value = "9,34,ANSI,1,,0,false,true,true"
thiscomponent.storetourl(surl,args1())
msgbox "Jepp, .csv gespeichert"
end sub[/code]
[*]Wenn Du dieses Makro aus der originalen .ods-Datei ausführst, wird die aktuelle Tabelle als Tabelle1.csv mit deinen Filtereinstellungen auf den Desktop gespeichert und die .ods bleibt geöffnet[/list]
Viel Erfolg
Gruß R

[quote="Karsten Hahn"]das Dokument (kalkulation.ods) ist im Laufe der Zeit auf einige Hundert Tabellen angewachsen, wodurch Öffnen und Speichern recht lange dauert.[/quote]
:shock:  Und die werden alle immer gebraucht? Nix, was du rausnehmen und archivieren könntest? Respekt! Risikoscheu kann dir niemand nachsagen. Vielleicht ist es aber auch „nur“ Leichtsinn… Jedenfalls hoffe ich für dich, dass du ein gutes Datensicherungskonzept hast und dies auch in die Tat umgesetzt hast.

[quote="Karsten Hahn"]Danach kann ich in dem ursprünglichen Dokument nicht mehr weiterarbeiten, sondern in Dateiname.csv.[/quote]
Dafür, dass nach dem Speichern eines Arbeitsblattes als csv-Datei [i]kalkulation.csv[/i] statt [i]kalkulation.ods[/i] angezeigt wird, habe ich keine Erklärung. Vielleicht ist es eine [i]Calc[/i]-Macke. Eine csv-Datei kann stets nur ein Arbeitsblatt haben. Du siehst aber nach dem Speichern immer noch eine (Un-)Menge von Arbeitsblättern. Das lässt darauf schließen, dass du nach wie vor mit der ods-Datei arbeitest. Du solltest daher mit einem erneuten [i]Datei → Speichern unter…[/i] als ods-Datei wieder „in der richtigen Welt“ arbeiten.

Um ein einzelnes Arbeitsblatt im csv-Format zu exportieren könntest du nach Auswahl des Punktes [i]Tabelle verschieben/kopieren…[/i] im Kontextmenü (Rechtsklick!) des Registers das Arbeitsblatt zunächst in ein [i]– neues Dokument –[/i] kopieren und dann diese Datei als csv-Datei speichern.

Und ja: Das lässt sich sicher auch als Makro implementieren. Hilfe dabei bekommst du in der Rubrik [url=http://de.openoffice.info/viewforum.php?f=8]OOo Base / SQL[/url].

Gruß
lorbass