Seite 1 von 1
Externes Programm per Button/Textfeld starten
Verfasst: Mo 11. Aug 2014, 12:13
von 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.
Re: Externes Programm per Button/Textfeld starten
Verfasst: Mo 11. Aug 2014, 12:24
von pmoegenb
Re: Externes Programm per Button/Textfeld starten
Verfasst: Mo 11. Aug 2014, 13:03
von 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?
Re: Externes Programm per Button/Textfeld starten
Verfasst: Mo 11. Aug 2014, 13:08
von 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
Re: Externes Programm per Button/Textfeld starten
Verfasst: Mo 11. Aug 2014, 13:58
von oleander
Guten Tag,
vielen Dank an alle Antwortenden. Die Schaltfläche funktioniert inzwischen wie gewünscht.