Открытие по очереди всех текстовых файлов из каталога - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Надо сделать перебор всех текстовых файлов в указанной папке. Я сделал так: все имена текстовых файлов сделал числовыми(1.txt,2.txt,...,n.txt),только так получилось все перебрать. А как сделать цикл, перебирающий все текстовые файлы с не числовым именем(Теория.txt,Практика.txt.........)?

Решение задачи: «Открытие по очереди всех текстовых файлов из каталога»

textual
Листинг программы
For Each f In fso.GetFolder(FolderPath).Files
  If f Like "*.txt" Then
    File = FolderPath & F
    'etc...
  End If
Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5