Dateiauswahl in einem Pfad
14.12.2022 13:29:21
Christian
ich hätte mal wieder ein Problemchen, vielleicht könnt Ihr mir auf die Sprünge helfen.
Ich importiere / kopiere mir bisher, aus einer bestimmten und gleichlautenden Datei eine Range heraus. Jetzt werden die Dateien
aus dem Pfad immer neu benannt :-( . Wie kann ich es realisieren dass ich mir in dem Ordner "EXPORT_TOP_RASCHL_KD_ANALYSE"
die Datei auswählen kann, und dann die Prozedur weiterläuft ?
LG
Christian
Dim sPfad As String
Dim wbQuelle As Workbook
' Dateipfad der Quelldatei
sPfad = "C:\Pricing_Werkstatt\EXPORT_TOP_RASCHL_KD_ANALYSE\TOP_RASCHL_KD_Analyse.xlsx"
' Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
' Daten kopieren und einfügen
wbQuelle.Worksheets(1).Range("A1").CurrentRegion.Copy
ThisWorkbook.Worksheets("KALK").Range("D11").PasteSpecial Paste:=xlValues
' Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=Fales