OpenOffice.info

Code: Alles auswählen

Sub my_cvs
    ON ERROR GOTO Errorhandler
    Dim myProps(1) as New com.sun.star.beans.PropertyValue
' X-System
'    sPath = "/home/user"
' Fenster-System?
    sPath = ENVIRON("HOMEDRIVE") + ENVIRON("HOMEPATH") + "\Eigene Dateien"
    sFile = "mycsv.csv"
    myDoc = ThisComponent

    myProps(0).Name = "FilterName"
    myProps(0).Value = "Text - txt - csv (StarCalc)"
    myProps(1).Name = "FilterOptions"
    myProps(1).Value = "59/9,34,Unicode (UTF-8) ,1,1/1/2/1" 'string mit den Optionen

    myDialog = createunoservice("com.sun.star.ui.dialogs.FolderPicker")
    myDialog.setDisplayDirectory(sPath)
    myDialog.setTitle("Verzeichnis zum Speichern der CSV-Datei auswählen")

    ret = myDialog.execute
    Select case ret 
      	case 0 ' Abbrechen

      	case 1 ' OK gedrückt
 	        sUrl = ConvertToURL(myDialog.getDirectory + sFile) ' hier noch ggf. prüfen, ob der  gewählte Pfad auf einen Trenner ("/"oder "\")endet
 	        myDoc.storeAsUrl(sUrl, myProps()) 
    end select
    exit sub

Errorhandler:
    MsgBox "Fehler" + chr(13) + err + ": "+ ERROR + chr(13) + "Zeile: " + erl 

End Sub

Code: Alles auswählen

Sub my_cvs
Dim myProps(1) as New com.sun.star.beans.PropertyValue
sPath="/home/user"
sFile="mycsv.csv"

'Dim Dialogtyp(0)
'DialogTyp(0) =com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
myDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
'myDialog.initialize(DialogTyp())

myDialog.setdefaultname(sFile)
myDialog.appendfilter("Text CSV",sFile)
myDialog.execute
FileName=MyDialog.Files(0)

sUrl=ConvertToUrl (FileName)
myProps(0).Name = "FilterName"
myProps(0).Value ="Text - txt - csv (StarCalc)"
myProps(1).Name="FilterOptions"
myProps(1).Value ="59/9,34,Unicode (UTF-8) ,1,1/1/2/1" 'string mit den Optionen
myDoc = thisComponent
myDoc.storeAsUrl(sUrl,myProps())
End Sub