csv Datei wird nur von Writer geöffnet?

[Stanley Fas]

Hallo!

Ich habe folgendes Problem:
Für mein Projekt will ich den Inhalt einer Textdatei (2 Zahlenwerte zu 100 Zeilen) in Calc öffnen und habe dazu folgendes gemacht:

Dim Doc As Object
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
Dim Url As String
Url = "file:///C:/Daten/tab_neu.csv"
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "scalc: Text - txt - csv (StarOffice Calc)"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties())

Immer wird die Textdatei mit Writer statt mit Calc geöffnet, auch wenn ich die Textdatei in *.csv umbennene oder zum probieren eine Textdatei vorher ins csv-Format exportiere. Was könnte da falsch laufen?

[RS]

Hi,

könnte Dir folgender Beitrag aus diesem Forum helfen:

viewtopic.php?t=5962&highlight=csv

Gruß,

Rebecca

[Stanley Fas]

Danke für die schnelle Antwort, dank derer ich mein Problem endlich in den Griff bekommen habe.
Das Öffnen einer Text-Datei (mit 3 Spalten und 100 Zeilen) mit Calc klappt bei mir nun wie folgt:

Code: Alles auswählen

Dim Doc As Object
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
Dim Url As String
Url = "file:///C:/Daten/tab_neu.csv"
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text - txt - csv (StarCalc)"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).Value = "44,34,ANSI,1,1/1/2/1/3/1"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties()

Im Value der Fileproperties - Filter Options habe ich als Format "Standard" (also die Ziffer1) eingestellt. Damit ist es möglich Text einzulesen. Voraussetzung für das Funktionieren ist allerdings der Aufbau der einzulesenden Textdatei nach dem Schema

"Inhalt","Inhalt","Inhalt"
"Inhalt","Inhalt","Inhalt"
u.s.w.

Die Datei muss also im CSV-Format vorliegen.

Bei der ganzen Angelegenheit bin ich nicht zuletzt über eine Ungereimtheit im deutschen Staroffice7 Basic Programmierhandbuch gestolpert. Dort stand als Beispiel:

Code: Alles auswählen

FileProperties(0).Value ="scalc: Text - txt - csv (StarOffice Calc)"

was bei mir wieder dazu führte dass die Datei im Writer geöffnet wurde. Bei nachfolgender Formulierung wird die CSV-Datei in Calc geöffnet:

Code: Alles auswählen

FileProperties(0).Value = "Text - txt - csv (StarCalc)"

Vielleicht nützt diese Lösung auch anderen Hilfesuchenden

Gruß Stanley