Externes Programm per Button/Textfeld starten

[oleander]

Guten Tag,

Dokumente oder Internetseiten können aus Calc per Hyperlink aufgerufen werden.

Ist es möglich, auch auf dem lokalen PC gespeicherte exe-Programme per Hyperlink oder Schaltflächenmakro zu starten?

Danke für jeden Hinweis.

[pmoegenb]

Hier wirst Du fündig.

[oleander]

Hallo Peter,

vielen Dank für den raschen Hinweis. Ich habe das Beispiel kopiert und meinen eigenen Pfad eingesetzt wie folgt:

Sub DateiOeffnen

url=converttourl("C:\Programme\Free M4a to MP3 Converter\m4a_converter.exe")
dim myFileProp() as new com.sun.star.beans.PropertyValue
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

end sub

Beim testen sind nun leider von allen geöffneten LibreOffice-Programmen die Bildschirminhalte verschwunden, es erfolgte keine Reaktion mehr und nach ca. 1 - 2 Minuten sind die Programme abgestürzt.

Oder habe ich eine falsche Vorlage erwischt?

[pstoelzg]

Code: Alles auswählen

Sub startApp(ByVal sPathApp As String)
	' URL pointing to location of executable file of application
	sUrl = ConvertToUrl(sPathApp)
	
	oService = createUnoService("com.sun.star.system.SystemShellExecute")
	oService.execute(sUrl, ,0)
end sub

siehe dazu:
http://de.openoffice.info/viewtopic.php?f=18&t=12680

ODER

http://www.starbasicfaq.de/Wiekannmanan ... icauf.html

[oleander]

Guten Tag,

vielen Dank an alle Antwortenden. Die Schaltfläche funktioniert inzwischen wie gewünscht.