Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Verschiedene Dateien öffen!
#1
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
Antworten Top
#2
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
Antworten Top
#3
Ohne API:


Code:
Sub M_snb()
   With Application.FileDialog(1)
      .InitialFileName = "*.pdf"
      If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
    End With
End Sub
Antworten Top
#4
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
Antworten Top
#5
Code:
Sub M_snb()
   With Application.FileDialog(1)
      .InitialFileName = "G:\OF\*.pdf"
      If .Show Then ActiveWorkbook.FollowHyperlink .SelectedItems(1)
    End With
End Sub
Antworten Top
#6
Hallo snb,


perfekt, vielen DANK!


VG
Alexandra
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste