Hallo,
John Kirste schrieb:
> Gibt es eine Möglichkeit, eine Datei, unabhängig von der Endung, in
> Calc zu öffnen einschließlich des Trennzeichen-Dialogs?
Ja, Du mußt nur beim Öffnen den passenden Filter auswählen. Also
Datei-Öffnen und dann unter Dateityp text-CSV einstellen und die Datei
wählen.
(das geht auch wenn die Datei nicht die Endung txt oder CSV hat, wenn Du
erst alle Dateien anzeigen lässt in den Eigenschaften der Datei den
Namen kopierst, dann den Filter einstellt und dann den Namen ins
Namensfeld des Öffnen-Dialog kopierst - oder erst alle Dateien anzeigen
die gewünschte anklicken dann wird sie ins Dateifeld übernommen, dann
Filter wählen und öffnen klicken)
Du kannst das auch mit Makro automatisieren, in etwa so:
Sub dateiauswahl
Dim auswahl as Object
Dim dateiname As String
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
antwort = auswahl.execute
if antwort = 1 then
Datei = auswahl.Files(0)
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "URL"
args3(0).Value = Datei
args3(1).Name = "FilterName"
args3(1).Value = "Text - txt - csv (StarCalc)"
document = ThisComponent.CurrentController.Frame
dispatcher.executeDispatch(document, ".uno:Open", "", 0, args3())
end if
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
