OpenOffice.info

Hallo Stephan,

herzlichen Dank! Es klappt.

Gruß, Hago

Sub ShowFilterOptions()
args = thiscomponent.getArgs()
for i = 0 to uBound(args())
   if args(i).Name = "FilterOptions" then
      inputbox "FilterOptions: ","ShowFilterOptions", args(i).Value
      exit for
   endif
next
End Sub

[quote]Wie kann ich erreichen, dass die csv-Datei auch utf-8 kodiert wird ?
[/quote]
indem Du UTF-8 als Parameter für die Kodierung in den Filter-Options übergibst:

args7(2).Value = "59,34,[color=#FF0000]76[/color],1,,0,true,true,true"

Die "76" kannst Du ermitteln indem Du bei geöffneter Datei die Filterflags anzeigen lässt mittels z.B.:

[code]Sub ShowFilterOptions()
args = thiscomponent.getArgs()
for i = 0 to uBound(args())
if args(i).Name = "FilterOptions" then
inputbox "FilterOptions: ","ShowFilterOptions", args(i).Value
exit for
endif
next
End Sub
[/code]

Gruß
Stephan

Hallo,

in diesem Makro-Teil wird ein Tabelleninhalt als csv-Datei gespeichert:
----------------
sUrl1$ = "file:///C:/xampp/htdocs/aserver/AAA/AAApflugi-test/listen/listeM.csv"
args7(0).Name = "Overwrite"
args7(0).Value = TRUE
args7(1).Name = "FilterName"
args7(1).Value = "Text - txt - csv (StarCalc)"
args7(2).Name = "FilterOptions"
args7(2).Value = "59,34,22,1,,0,true,true,true"
Dok.storeAsURL(sUrl1$, args7())
................

Wie kann ich erreichen, dass die csv-Datei auch utf-8 kodiert wird ?

Grüße, Hago