VBA: Не работает перебор файлов

[Leksa]

Здравствуйте. В папке "для теста" есть около 800 файлов.
При первом витке цикла MyName видит файл, при следующем - возвращает пусто, соответственно цикл завершается.
Почему такое может быть?

Sub ЗаполнениеДанных()
   
    Dim MyPath As String, MyName As String
   
    MyPath = "D:\для теста\"
    MyName = Dir(MyPath & "*.xls")
   
    Do While MyName <> ""
        MyName = Dir
    Loop
   
End Sub

[Администратор]

Значит здесь:
D:\для теста\

только один файл с расширением xls.

Может быть у файлов другие расширения? Например xlsx?
Или может быть в этой папке другая папка, а xls-файлы находятся в той папке?

[Leksa]

Спасибо! Да, действительно у файлов расширение "xlsx".