von Stephan » Fr, 09.11.2018 09:47
Hallo,
in (zumindest) LibreOffice 5.0.4 und LO 5.0.6 funktioniert der Filepicker nicht richtig.
mein Code ist:
Code: Alles auswählen
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.SetMultiselectionMode(True)
.appendFilter("ODF-Dateien (odt, ods)", "*.odt;*.ods")
.SetTitle("Wählen Sie die Dateien zum Drucken")
End With
antwort = auswahl.execute
if antwort = 1 then
dateien = auswahl.Files
j = UBOUND(auswahl.Files())
Msgbox dateien(0)
Else
Msgbox "Keine Dateien ausgewählt, Makro wird beendet.",16,"Fehlerhafte Auswahl"
Exit Sub
end if
hierbei liefert Msgbox dateien(0) nicht die ausgewählte erste Datei, sondern das Verzeichnis.
Was kann man tun? LO soll nicht geupdatet werden.
außerdem: kennt jemand die/eine Fehlermeldung zu LO wo dieser Fehler bereits gemeldet wurde? Link?
Hinweis:
der Ausdruck:
steht deshalb im Code weil, der eigentlich richtige Ausdruck:
nicht funktioniert.
Gruß
Stephan
"
Hallo,
in (zumindest) LibreOffice 5.0.4 und LO 5.0.6 funktioniert der Filepicker nicht richtig.
mein Code ist:
[code] auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.SetMultiselectionMode(True)
.appendFilter("ODF-Dateien (odt, ods)", "*.odt;*.ods")
.SetTitle("Wählen Sie die Dateien zum Drucken")
End With
antwort = auswahl.execute
if antwort = 1 then
dateien = auswahl.Files
j = UBOUND(auswahl.Files())
Msgbox dateien(0)
Else
Msgbox "Keine Dateien ausgewählt, Makro wird beendet.",16,"Fehlerhafte Auswahl"
Exit Sub
end if
[/code]
hierbei liefert Msgbox dateien(0) nicht die ausgewählte erste Datei, sondern das Verzeichnis.
Was kann man tun? LO soll nicht geupdatet werden.
außerdem: kennt jemand die/eine Fehlermeldung zu LO wo dieser Fehler bereits gemeldet wurde? Link?
Hinweis:
der Ausdruck:
[code]dateien = auswahl.Files
[/code]
steht deshalb im Code weil, der eigentlich richtige Ausdruck:
[code]dateien = auswahl.getSelectedFiles
[/code]
nicht funktioniert.
Gruß
Stephan
"