zählen Dateien in bestimmten Ordner und zeigen Sie die Nummer in 1 Zelle

Question

Ich versuche zu wissen, wie viele Dateien gibt es in einem bestimmten Ordner mit .xls Erweiterung. Ich lese Hunderte von Beispielen mit Message-Boxen, aber das ist nicht das, wonach ich suche. Ich möchte nur die Nummer in 1 cel angezeigt haben.

Gibt es jemanden, der mir gerne dabei hilft? Ich kann keine Versuche schreiben, weil ich nicht :-(

freundlichen Grüßen loszulegen, E.

Answer 1

unten Code Versuchen:

den Pfad des Ordners Variable FolderPath zuweisen, bevor die Lauf Code unten.

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