Ordner auslesen Dateien autom. öffnen und löschen

Computer: Software & Programmierung Office Software
1

Hallo.

Eine neue Frage.
Ich habe einen Ordner „Zulieferung“.
Hier speichere ich mir Excel Dateien hinein, von den einzelnen Anlieferungen, die wir bekommen.
Wie bekomme ich das jetzt hin, das mir VBA per Knopfdruck, die erste Datei öffnet (Hat irgendeinen Namen, welchen ich nicht festlegen kann, da er jeden Tag von jeder Firma anders ist).
Dazwischen füge ich meinen Programmcode ein, welcher die Excel Dateien ausliest, und speichert.

Dann muss die soeben geöffnete Datei (jetzt war es die erste) geschlossen werden, und gleichzeitig aus dem Ordner gelöscht.

Und dann soll das Makro gleich die zweite Excel Datei öffnen (Welche jetzt eigentlich wieder an erster Stelle stünde, da die vorherige ja gelöscht wurde).
Dann arbeitet wieder mein Programmcode zum auslesen, danach soll die Datei wieder geschlossen und gelöscht werden, usw…

Bis der Ordner leer ist.

Wie kann ich das bewerkstelligen?

PS:
Habe das mit dem hinüberziehen der Excel Dateien derweilen aufgegeben (Deshalb jetzt dieser Versuch). Wenn ihr aber eine Idee dazu habt dann würde ich sehr Dankbar sein.

2

Lösung gefunden
Hallo an alle die vieleicht auch einmal soetwas ähnliches suchen:

Sub Dateien_öffnen()
Dim zähler As Long, Pfad As String
Pfad = „C:\Test“
Default:=CurDir)
If Pfad = „“ Then Exit Sub
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Pfad
.SearchSubFolders = True
If .Execute 0 Then
For zähler = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles.Item(zähler)
Next zähler
End If
End With
Kill Pfad & sDatei

sDatei = Dir()
End Sub

Mfg Anton