VBA: Datei über Zähler öffnen

Guten Morgen zusammen,

mich würde interessieren, ob man Dateien über einen Zähler öffnen kann.

Beispiel:
Im Ordner "Test" liegen 100 Dateien (.csv)
Ich möchte jetzt über eine Schleife die Datei öffnen, die meinem Zähler (i) im entspricht (also bzpw. die dritte Datei im Ordner).


Ich weiß, dass es mit Do While geht:
Do While sDatei <> ""
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True)

Aber ich würde gerne wissen, ob es auch über den Zähler funktioniert.

Vielleicht hat jemand eine Idee.
VIelen Dank im Voraus.
Gruß

Dim sPfad As String
Dim sDatei As String
Dim i As Long
Dim oSourceBook As Object
Dim cntOpen as Long

sPfad = ActiveWorkbook.Path & "\Test  
sDatei = Dir(sPfad & "\*.csv*")  
' Workbook das geöffnet werden soll (hier das dritte nach Dateisystemsortierung)  
cntOpen = 3
for i = 1 to (cntOpen-1)
    sDatei = Dir
Next
Set oSourceBook = Workbooks.Open(sPfad & "\" & sDatei, False, True)  

Dim sPfad As String
Dim sDatei As String
Dim i As Long
Dim oSourceBook As Object

sPfad = ActiveWorkbook.Path & "\Test  
sDatei = Dir(sPfad & "\*.csv*")  

'Anzahl der Dateien ermitteln.  
Do While sDatei <> ""  
lSTEPS = lSTEPS + 1
sDatei = Dir()

For i = 1 To (lSTEPS - 1)
' Workbook das geöffnet werden soll (nach Dateisystemsortierung)  
sDatei = Dir
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen  
'Hier ist Platz für weitere Aktionen  
Next i