von Hago » Mo, 03.03.2008 20:19
Hallo Winfried,
danke für die Hilfe.
Ich habe Deinen Code übernommen. Die ganze sub sieht jetzt so aus:
Code: Alles auswählen
sub dBase_importieren
Dim Doc As Object
Dim sURL as String
Doc = StarDesktop.CurrentComponent
Dim arg(1) as new com.sun.star.beans.PropertyValue
arg(0).name = "FilterName"
arg(0).value = "dBase"
arg(1).name = "FilterOptions"
arg(1).value = "0"
sURL = "file:///C:/Dokumente%20und%20Einstellungen/Hago%20Ziegler/Eigene%20Dateien/Kunden.dbf"
Doc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, arg())
end sub
Leider geht's nicht.
Um zu testen, ob ich irgend einen ganz grundlegenden Fehler mache, habe ich mal mit dem selben Makro, mit nur wenigen Änderungen eine csv-Datei geöffnet. Das hat sofort geklappt. Wenn ich dann die Werte wieder für die dBase-Datei ändere geht nichts mehr.
Ich weiß mir nicht mehr so recht zu helfen...
Gruß, Hago
Hallo Winfried,
danke für die Hilfe.
Ich habe Deinen Code übernommen. Die ganze sub sieht jetzt so aus:
[code]sub dBase_importieren
Dim Doc As Object
Dim sURL as String
Doc = StarDesktop.CurrentComponent
Dim arg(1) as new com.sun.star.beans.PropertyValue
arg(0).name = "FilterName"
arg(0).value = "dBase"
arg(1).name = "FilterOptions"
arg(1).value = "0"
sURL = "file:///C:/Dokumente%20und%20Einstellungen/Hago%20Ziegler/Eigene%20Dateien/Kunden.dbf"
Doc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, arg())
end sub
[/code]
Leider geht's nicht.
Um zu testen, ob ich irgend einen ganz grundlegenden Fehler mache, habe ich mal mit dem selben Makro, mit nur wenigen Änderungen eine csv-Datei geöffnet. Das hat sofort geklappt. Wenn ich dann die Werte wieder für die dBase-Datei ändere geht nichts mehr.
Ich weiß mir nicht mehr so recht zu helfen...
Gruß, Hago