Hallo,
ich hab folgenden Code, mit dem ein Fenster geöffnet wird um ein Ordner auzuwählen.
Allerdings möchte ich nicht nur ein Ordner auswählen und das wars sondern ich möchte weiter eine Excel-Datei auswählen und öffnen. Diese Excel-Datei liegt in ein beliebigen Folder, bei mir hier: D:\Messungen\Excel Aufgabe
Frage: was muss ich zu mein Code hinzufügen um des zu erreichen ?
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
On Error GoTo 0
Vielen Dank,
Mike