wie kann ich ein externes Programm starten?
z.B. möchte ich den Acrobat starten und eine PDF-Datei zum starten mitgeben.
Gruß Thomas
Public Function DateiÖffnen(Aktion As String, Pfad As String, _
Ansicht As String) As Boolean
Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function
Sub PDFDateiAnzeigen()
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\Dienstplanorganizer 2008.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub
Gruß
Martin