|
Guten Tag,
ich möchte eine geöffnete Datei aktivieren, ohne deren Dateinamen angeben zu müssen.
Um die Datei zu öffnen, verwende ich einen FileDialog mit folgendem Code:
'manuelle ausgewählte Datei öffnen
Dim fd As FileDialog
'File Dialog erstellen
Set fd = Application.FileDialog(msoFileDialogOpen)
'Variable um den Pfad anzeigen zu können
Dim Dateipfad As Variant
'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
'Anzeigen des Pfades
MsgBox "Der Pfad der gewählten Datei lautet: " & Dateipfad
Next Dateipfad
.Execute
Else
End If
End With
Nachdem die Datei geöffnet wurde möchte ich mit folgendem Code, einzelne Zellen in die aktuelle Datei (DateiB) kopieren:
Workbooks("DateiA").Activate
Sheets("TabelleA").Range("U11").Copy
Workbooks("DateiB").Activate
Sheets("TabelleB").Range("D94").PasteSpecial xlPasteValues
Ist es möglich anstelle des Dateinamens von DateiA, einen bezug zum oben genannten Code herstzustellen, sodass der Dateiname nicht von vorn herein festgelegt sein muss, sondern sich anpasst, je nachdem welche DateiA geöffnet wird?
Vielen Dank für die Hilfe!
|