Makro für "Speicher unter ..." als .csv für alle T
Verfasst: Di, 30.01.2007 19:58
Hallo,
ich bin gerade dabei mir mein erstes Makro zu basteln. Und zwar brauch ich eins welches mir alle Tabellen des aktuellen Dokuments als CSV speichert mit folgenden Optionen:
- die Dateien sollen nach folgenden Schema benannt werden: "DateinameTabellenname.prn" (Dateiname ohne Endung)
- die Dateien sollen im selben Ordner wie die Ursprungsdatei gespeichert werden
- die Dateien sollen als Text (CSV) mit fester Spaltenbreite gespeichert werden
- und es wär schön schön, wenn nach ausführen des Skripts, wieder die Ursprungsdatei in OO offen wäre.
Soweit bin ich bisher gekommen:
Auch habe ich es noch nicht geschafft das Skript in der Ursprungsdatei zu speichern, da nach ausführen der Befehle (ich habe die Funktion Makro aufzeichen benutzt) die Ursprungsdatei geschlossen ist und nur noch die CSV Datei offen ist. Und in Makros verwalten kann ich irgendwie keine Skripte kopieren?
Danke für alle Antworten,
Richard
PS: Bin auch dankbar für Links zu How-To's, Information, etc. zu Makros in OO.
ich bin gerade dabei mir mein erstes Makro zu basteln. Und zwar brauch ich eins welches mir alle Tabellen des aktuellen Dokuments als CSV speichert mit folgenden Optionen:
- die Dateien sollen nach folgenden Schema benannt werden: "DateinameTabellenname.prn" (Dateiname ohne Endung)
- die Dateien sollen im selben Ordner wie die Ursprungsdatei gespeichert werden
- die Dateien sollen als Text (CSV) mit fester Spaltenbreite gespeichert werden
- und es wär schön schön, wenn nach ausführen des Skripts, wieder die Ursprungsdatei in OO offen wäre.
Soweit bin ich bisher gekommen:
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
End Sub
sub export
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(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///F:/richard/Eigene%20Dateien/test/Datsheet1.prn"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "FIX,34,ANSI,1"
args1(3).Name = "SelectionOnly"
args1(3).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub
Danke für alle Antworten,
Richard
PS: Bin auch dankbar für Links zu How-To's, Information, etc. zu Makros in OO.
