Pfadauswahl
27.04.2015 11:39:58
Schwoga
ich habe folgende Funktion um mir Daten aus einer geschlossenen Datei zu holen. Da ich aber nicht immer den gleichen Dateinamen am gleichen Pfad habe, es aber immer grundsätzlich die gleiche Vorlage ist, möchte ich da eine Auswahl einbauen, die es mir ermöglicht, die richtige Datei auszuwählen. Geht das irgendwie? Gefunden habe ich bisher nirgends das richtige bzw. hat´s nicht funktioniert.
Public Sub HoleDaten()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Zellen As String
Pfad = "D:\Eigene Dateien\"
Dateiname = "Quelle.xlsm"
Blatt = "Quelle1"
Zellen = "A4:L89"
If GetDataClosedWB(Pfad, _
Dateiname, _
Blatt, _
Zellen, _
Worksheets("Quelle1").Range("A4")) Then
MsgBox "Daten importiert"
End If
End Sub
Es müsste irgendwie das PFAD und DATEINAME umgangen werden.Es wäre schon, wenn da jemand eine Antwort hätte.
Danke
Schwoga