Hallo,
also wenn das alles in einer Sub ist dann so:
Dim fd As FileDialog
'File Dialog erstellen
Set fd = Application.FileDialog(msoFileDialogOpen)
'Variable um den Pfad anzeigen zu können
Dim Dateipfad As Variant
Dim strDatei As String, strDatei2 As String
'With..End With für den Bezug zum File Dialog
With fd
'Anzeigen des Picker für alle ausgewählten Dateien
If .Show = -1 Then
For Each Dateipfad In .SelectedItems
strDatei = .SelectedItems(1) 'hier steht der komplette Pfad mit Dateiname
'hier wird nur der Dateiname extrahiert
strDatei2 = Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\", , vbTextCompare))
'Anzeigen des Pfades
MsgBox "Der Pfad der gewählten Datei lautet: " & Dateipfad
'Datei =
Next Dateipfad
.Execute
End If
End With
Die Variable strDate2 kannst du dann in deinem weiteren Code benutzen, z.B. so:
Workbooks(strDatei2).Sheets("TabelleA").Range("U11").Copy
Somit bekommst du immer hier die oben geoeffnete Datei in Workbooks.
Gruss Torsten
|