Hi, > c) Nun bräuchte ich einen kompletten Dump aller Datensätze als CSV-Datei. > du kannst ein Formular erstellen und ein Macro und das Button mit dem Macro verknüpfen. Das Macro sollte folgendes enthalten:
REM hiervor steht z.B. "Sub Main"
REM ANFANG
oform = ThisComponent.DrawPage.Forms.getByIndex(0)
oFileAccess =
createUnoService("*com*.*sun*.*star*.*ucb*.*SimpleFileAccess*")
oFile = oFileAccess.openFileWrite("file:///Pfad/zu/Datei/Dateiname.csv")
oTextOutputStream =
createUnoService("*com*.*sun*.*star*.io.TextOutputStream")
oTextOutputStream.setOutputStream(oFile)
REM Bitte anpassen
spaltenanz = 10
c = oform.first()
Do While c
For i = 1 TO spaltenanz
if i > 1 Then oTextOutputStream.writeString(",")
oTextOutputStream.writeString("""" & oform.getString(i) & """")
Next i
oTextOutputStream.writeString(CHR(10))
c = oform.next()
Loop
oFile.closeOutput()
REM ENDE
REM hier nach steht z.B. "End Sub"
mfg,
Michael Braun
smime.p7s
Description: S/MIME Cryptographic Signature
