Количество файлов в книге - VBA

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

Добрый день! Это код, который открывает книги в папке, есть одно условие, все файлы начинаются с одного названия Customer, программа открывает файл, сохраняет КАК, под другим именем и закрывает. А есть ли возможность, подсчитать количество этих файлов не открывая их?
Public Sub nomer_8_4()
 
Dim i As Integer, qwer As Boolean
 
i = 1
qwer = True
    Do
        With Workbooks
            On Error GoTo L
            .Open Filename:="C:\Users\user\Desktop\VBA2\Customer" & i & ""
                With ActiveWorkbook
                    If Left(.Name, 8) = "Customer" Then
                        .SaveAs Filename:="C:\Users\user\Desktop\VBA2\CustOrder" & i & ""
                        .Close
                        i = i + 1
                    Else
                        qwer = False
                    End If
                End With
        End With
    Loop While qwer = True
L:
    MsgBox "ГЉГ*ГЁГЈ Г± ГІГ*ГЄГЁГ¬ èìåГ*ГҐГ¬ áîëüøå Г*ГҐГІ", vbCritical, "Г‚Г*ГЁГ¬Г*Г*ГЁГҐ"
End Sub

Код к задаче: «Количество файлов в книге - VBA»

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.000 из 5


СОХРАНИТЬ ССЫЛКУ