Name der importierten Datei in Tabelle

[D K]

Hallo, 

unten steht ein Code, mit dem ich Daten von einer beliebigen Excel-Datei in meine Tabelle importieren kann. 
Jetzt würde ich gerne noch den Namen der zuletzt ausgewählten = importierten Datei in meiner Tabelle stehen haben. Wo genau ist erstmal egal, aber man nehme mal Tabelle1 Zelle A1 an. 
Es geht mir darum, dass ich den Stand des Imports habe. Die zu importierenden Dateien sind alle mit einem Datum beschrieben. Deshalb hätte ich gerne den Namen dieser Datei. 

Kann mir jemand helfen? 

Ich bedanke mich schon mal recht herzlich 

Viele liebe Grüße von

Kathi


Sub ImportNeueDaten()

Application.ScreenUpdating = False

Dim Quelle As Object, Ziel As Object
Dim Datei As String

On Error GoTo Fehler

'DATEI AUSWÄHLEN
Datei = Application.GetOpenFilename("Excel-Dateien (*.xlsm;*.xlsx), *.xlsm;*.xlsx", _
MultiSelect:=False)

'WENN KEINE DATEI AUSGEWÄHLT WIRD
If Datei = "Falsch" Then
  MsgBox "Sie haben keine Datei zum Import ausgewählt", , "Abbruch"
  
  Exit Sub
End If

Workbooks.Open Filename:=Datei

Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets("Tabelle1")

'kopieren und einfügen
'Quelle.UsedRange.Copy Ziel.Cells(1, 1)
Set Quelle = ActiveWorkbook.Worksheets("Daten")

Quelle.Range("Q20:JQ10000").copy Ziel.Cells(2, 1)

ActiveWorkbook.Close savechanges:=False

'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing


MsgBox "Die Daten wurden erfolgreich importiert", , "Schließen"

Application.ScreenUpdating = True

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing


    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
    
Application.ScreenUpdating = True

End Sub

[Kuwer]

Hallo,

ActiveWorkbook.Close savechanges:=False

'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing


MsgBox "Die Daten wurden erfolgreich importiert", , "Schließen"
Tabelle1.Range("A1").Value = Datei
Application.ScreenUpdating = True

Exit Sub

Gruß Uwe

[D K]

Kam gerade erst dazu es auszuprobieren. 

Aber es funktioniert! Vielen Dank!

[D K]

Habe noch eine kurze Frage: 
Ist es auch möglich nur den Dateinamen zu erhalten? Momentan spuckt es ja den gesamten Pfad aus. 


Vielen Dank schon mal!

[Kuwer]

Hallo,

Tabelle1.Range("A1").Value = Dir(Datei)

Gruß Uwe

[D K]

Perfekt danke!

[snb]

Oder:

Code:

Sub M_snb()
  With Application.FileDialog(3)
     If .Show Then Sheets.Add(, Sheets(Sheets.Count), , .SelectedItems(1)).Name = Dir(.SelectedItems(1))
  End With
End Sub