Liste mit unbekannten Dateinamen importieren

[schauan]

Hallöchen,

mit dem Refresh könnte der Teil im Prinzip so aussehen.
Fehlt natürlich noch das Löschen der Datei und das Listobject könnte man auch direkt ansprechen statt über Cells(1,1)
Für Rows.Count, 1 sollte man sich eine Spalte raussuchen, die auch garantiert vollständig bzw. zumindest in der letzten Zelle gefüllt ist.

Sub Aktualisieren()
'Aktualisieren im Blatt Tabelle3
With Sheets("Tabelle3").Cells(1, 1).ListObject
.QueryTable.Refresh BackgroundQuery:=False
.DataBodyRange.Copy
End With
'Uebertragen unter vorhandene Daten in Blatt Tabelle1 anhand letzte gefuellte Zelle in Spalte A
With Sheets("Tabelle1")
.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub