Здравствуйте. В папке "для теста" есть около 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-файлы находятся в той папке?
Спасибо! Да, действительно у файлов расширение "xlsx".