Открытие по очереди всех текстовых файлов из каталога - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д