OpenOffice.info

Auch das werde ich gleich versuchen.

Danke

Linus

Sub import2_sample
Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue
Dim sUrl As String
sUrl = "file:///D:/test.txt"
mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "scalc: Text - txt - csv (StarCalc)"
mFileProperties(1).Name = "FilterFlags"
mFileProperties(1).Value = "9,34,SYSTEM,1,1/1/1/1/1/1/1/1"
oDesktop = createUNOService("com.sun.star.frame.Desktop")
oDocument = oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProperties())
End Sub

mFileProperties(1).Value = "9,34,SYSTEM,1,1/1/1/1/1/1/1/1"

Aus:
http://api.openoffice.org/basic/man/tutorial/tutorial.pdf

habe ich ein Beispiel entnommen und etwas modifiziert. Folgendes funktioniert bei mir für TAB-getrennte Werte:

[code]Sub import2_sample
Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue
Dim sUrl As String
sUrl = "file:///D:/test.txt"
mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "scalc: Text - txt - csv (StarCalc)"
mFileProperties(1).Name = "FilterFlags"
mFileProperties(1).Value = "9,34,SYSTEM,1,1/1/1/1/1/1/1/1"
oDesktop = createUNOService("com.sun.star.frame.Desktop")
oDocument = oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProperties())
End Sub[/code]

Du müßtest möglicherweise die Parameter in der Zeile:
[code]mFileProperties(1).Value = "9,34,SYSTEM,1,1/1/1/1/1/1/1/1"[/code]
anpassen. Informationen dazu stehen in dem Link Kapitel 4.2.1.

Gruß
Stephan

Hallo,

wie kann man eine Tabulatorgetrennte Textdatei in ein Tabellendokument öffnen.

Wenn die Datei .txt heisst, geht bei mir immer ein Textdokument auf.
Wenn ich die Datei in .csv umbenenne wird sie gar nicht geöffnet.

Kann mir jemand helfen?

Gruß Linus