Verschiedene Dateien öffen!

[cysu11]

Hallo liebe Excelgemeinde,



mit folgenden Code kann ich den aktuellen Ordner öffnen und dort nach Wunsch eine Exceldatei auswählen und öffnen:

Sub test()
Application.Dialogs(xlDialogOpen).Show
End Sub

Wie muss ich den Code ändern, damit ich auf z.B. PDF oder Word etc. Dateien auswählen kann und natürlich auch öffnen?


Danke
VG
Alexandra

[Kuwer]

Hallo Alexandra,

z.B. so:

Option Explicit

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 DateiOeffnen()
 Dim strDatei As String
 strDatei = Application.GetOpenFilename("PDF-Dateien (*.pdf), *.pdf")
 If Not CVar(strDatei) = False Then
   ShellExecute 0&, "open", strDatei, vbNullString, vbNullString, vbNormalFocus
 End If
End Sub

Gruß Uwe

[snb]

Ohne API:

Code:

Sub M_snb()
   With Application.FileDialog(1)
      .InitialFileName = "*.pdf"
      If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
    End With
End Sub

[cysu11]

Hallo zusammen,



danke euch beiden für die Lösungsvorschläge, funktionieren beide sehr gut!

Mir gefällt allerdings die Lösung von snb besser, weil kürzer! :)

Wie kann ich aber damit ein bestimmten ordner öffnen?

Danke
VG
Alexandra

[snb]

Code:

Sub M_snb()
   With Application.FileDialog(1)
      .InitialFileName = "G:\OF\*.pdf"
      If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
    End With
End Sub

[cysu11]

Hallo snb,


perfekt, vielen DANK!


VG
Alexandra