특정 폴더의 파일 수를 계산하여 1 셀에 숫자를 표시하십시오.

Question

확장자가 .xls 인 특정 폴더에 얼마나 많은 파일이 있는지 알고 싶습니다. 메시지 상자를 사용하여 수백 가지 예제를 읽었지 만 이것이 내가 원하는 것은 아닙니다. 숫자를 1 셀로 표시하고 싶습니다.

제발 저와 함께 도와 주실 분 있나요?

이 프로그램을 실행하기 전에 변수 FolderPath에 폴더의 경로를 지정 : 나는,

안부 :-(코드 아래에보십시오 E.

Answer 1

을 시작할 수 없기 때문에 나는 어떤 시도를 게시 할 수 없습니다 아래의 코드입니다.

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