Количество файлов в книге - 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

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

10   голосов , оценка 4 из 5