OpenOffice.info

sub Fehlzeiten
Dim Doc As Object
Dim FileProperties()
Dim Url As String
Url = convertToURL("F:\Schülerlisten\Klasse 9 0708\Fehlzeitenhelfer.ods")
	if fileexists(url) then
		Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties())
	else
		objDateiDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
		objDateiDlg.execute()
	end if
end sub

Hallo
[code]sub Fehlzeiten
Dim Doc As Object
Dim FileProperties()
Dim Url As String
Url = convertToURL("F:\Schülerlisten\Klasse 9 0708\Fehlzeitenhelfer.ods")
if fileexists(url) then
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties())
else
objDateiDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
objDateiDlg.execute()
end if
end sub[/code]
Tuts das ?

Gruß Karo