Dateiname mit VBA bestimmen

Hallo zusammen,
ich möchte per VBA eine Datei bearbeiten, die immer im identischen Verzeichnis liegt. Die Dateien sind alle unterschiedlich benannt.
Ich bräuchte hierzu am besten ein Fenster, dass sich öffnet (Browser wie zB beim "Öffnen" von Dateien). Dort will ich die Datei anklicken und dann den vollständigen Namen der Datei in VBA haben.
Als Praxisbeispiel:
Ich habe eine Hauptdatei "Preisvergleich.xlsm". Im gleichen Verzeichnis liegen die Dateien:
Preis012016.xls
Preis022016.xls
03_2016_Preis.xls
Ich möchte die zu bearbeitende Datei über den Browser auswählen. In diesem Fall die 03_2016_Preis.xls, die dann verarbeitet wird. Habe also dann den Pfad zur Datei in einer Variable hinterlegt um damit zu spielen.
Ich weiß, etwas kompliziert dargestellt. Hab mir dennoch Mühe gegeben :). Eventuell gibt es auch alternative Lösungen?
Danke für alle Kommentare!
VG
André

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub André() Dim Pfad$, Vorgabe$, Dateiname$ Dim Dlg As FileDialog Vorgabe = "*.xls" Pfad = "C:\Temp\" Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen With Dlg .AllowMultiSelect = False .InitialFileName = Pfad & Vorgabe .InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs - die Dateien als Detail End With If Dlg.Show = True Then Dateiname = Dlg.SelectedItems(1) ' der Name der ausgewählten Datei 'mach was damit 'Workbooks.Open Filename:=Dateiname Else 'keine Datei ausgewählt End If End Sub

Hier nochmal aufgespaltet...

Sub André()
    Dim Pfad$, Vorgabe$, Komplettname$, Datei$, NeuPfad$
    Dim Dlg As FileDialog
    Vorgabe = "*.xls"
    Pfad = "C:\Temp\" ' Startpfad für die Auswahl 
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen 
    With Dlg
        .AllowMultiSelect = False
        .InitialFileName = Pfad & Vorgabe
        .InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs - die Dateien als Detail 
    End With
    If Dlg.Show = True Then
        Komplettname = Dlg.SelectedItems(1) ' der Name der ausgewählten Datei inkl. Pfad 
        Datei = Dir(Komplettname) ' nur Dateiname inkl. Ext 
        
        ' der tatsächlich ausgewählte Pfad 
        NeuPfad = Left(Komplettname, Len(Komplettname) - Len(Datei))
        'mach was damit 
        'Workbooks.Open Filename:=Komplettname 
    Else
        'keine Datei ausgewählt 
    End If
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread