zlicza pliki w określonym folderze i wyświetla numer na 1 cel

Question

Próbuję wiedzieć, ile plików jest w 1 określonym folderze z rozszerzeniem .xls. Przeczytałem setki przykładów z ramkami, ale tego nie szukam. Chcę po prostu wyświetlić numer w 1 cel.

Czy jest ktoś, kto lubi mi z tym pomóc? nie mogę dodawać żadnych prób, ponieważ nie mogę zacząć :-(

poważaniem, E.

Answer 1

Spróbuj poniżej kodu:

przypisać ścieżkę do folderu, do zmiennej FolderPath przed uruchomieniem poniżej kodu:

Sub sample() 

    Dim FolderPath As String, path As String, count As Integer 
    FolderPath = "C:\Documents and Settings\Santosh\Desktop" 

    path = FolderPath & "\*.xls" 

    Filename = Dir(path) 

    Do While Filename <> "" 
     count = count + 1 
     Filename = Dir() 
    Loop 

    Range("Q8").Value = count 
    'MsgBox count & " : files found in folder" 
End Sub