möchte gern mit dem Resultat von Dialog Application.GetOpenFilename nicht nur Excel-, sondern auch andere Dokumente, mit der jeweiligen Anwendung starten.
Wie kann ich das bewerkstelligen?
M.f.G.
Lutz
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nshowcmd As Long) As Long
Sub StartProg()
Dim varPfad
varPfad = Application.GetOpenFilename("All files (*.*),*.*")
If LCase(TypeName(varPfad)) = "string" Then
Call ShellExecute(0, "open", varPfad, "", "", 3)
End If
End Sub
Gruß Tino