Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

GetOpenFilename nicht nur xls-Mappen öffnen

GetOpenFilename nicht nur xls-Mappen öffnen
Lutz
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: GetOpenFilename nicht nur xls-Mappen öffnen
13.10.2010 17:54:50
Tino
Hallo,
in etwa so müsste es mit anderen Dateien funzen.
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
Anzeige
AW: GetOpenFilename nicht nur xls-Mappen öffnen
13.10.2010 18:06:05
Lutz
Hallo Tino,
danke super. (:-)
M.f.G.
Lutz

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige