Seite 1 von 1
Makro zum Öffen einer txt-Datei in ein Tabellendokument
Verfasst: So, 15.08.2004 12:11
von linus
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
Verfasst: So, 15.08.2004 15:43
von Stephan
Aus:
http://api.openoffice.org/basic/man/tut ... torial.pdf
habe ich ein Beispiel entnommen und etwas modifiziert. Folgendes funktioniert bei mir für TAB-getrennte Werte:
Code: Alles auswählen
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
Du müßtest möglicherweise die Parameter in der Zeile:
Code: Alles auswählen
mFileProperties(1).Value = "9,34,SYSTEM,1,1/1/1/1/1/1/1/1"
anpassen. Informationen dazu stehen in dem Link Kapitel 4.2.1.
Gruß
Stephan
Danke
Verfasst: So, 15.08.2004 20:30
von linus
Auch das werde ich gleich versuchen.
Danke
Linus