OpenOffice.info

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()

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

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

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]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()[/code]

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]FileProperties(0).Value ="scalc: Text - txt - csv (StarOffice Calc)"[/code]

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]FileProperties(0).Value = "Text - txt - csv (StarCalc)"[/code]

Vielleicht nützt diese Lösung auch anderen Hilfesuchenden :D

Gruß Stanley

Hi,

könnte Dir folgender Beitrag aus diesem Forum helfen:

http://de.openoffice.info/viewtopic.php?t=5962&highlight=csv

Gruß,

Rebecca

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?