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
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
Ohne API:
Code:
Sub M_snb()
With Application.FileDialog(1)
.InitialFileName = "*.pdf"
If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
End With
End Sub
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
Code:
Sub M_snb()
With Application.FileDialog(1)
.InitialFileName = "G:\OF\*.pdf"
If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
End With
End Sub
Hallo snb,
perfekt, vielen DANK!
VG
Alexandra