contiamo i file in una cartella specifica e visualizziamo il numero in 1 cel

Question

Sto cercando di sapere quanti file ci sono in 1 cartella specifica con estensione .xls. Ho letto centinaia di esempi con finestre di messaggi, ma non è quello che sto cercando. Voglio solo avere il numero visualizzato in 1 cel.

C'è qualcuno a cui piace aiutarmi? non posso postare eventuali tentativi perché non può iniziare :-(

migliori saluti, E.

Answer 1

Prova sottostante Codice:

assegnare il percorso della cartella alla variabile FolderPath prima di eseguire il sotto il codice.

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