Количество файлов в книге - VBA
Формулировка задачи:
Добрый день!
Это код, который открывает книги в папке, есть одно условие, все файлы начинаются с одного названия Customer, программа открывает файл, сохраняет КАК, под другим именем и закрывает. А есть ли возможность, подсчитать количество этих файлов не открывая их?
Решение задачи: «Количество файлов в книге»
textual
Листинг программы
Private Sub Test() Dim iPath$, iFileName$, iCount& iPath = "C:\Users\user\Desktop\VBA2\" iFileName = Dir(iPath & "Customer*") Do Until iFileName = "" iCount = iCount + 1 iFileName = Dir Loop MsgBox iCount End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д