web-dev-qa-db-ja.com

特定のフォルダー内のファイルをカウントし、1つのセルに数値を表示します

拡張子が.xlsの特定の1つのフォルダーにあるファイルの数を確認しようとしています。メッセージボックスで何百もの例を読んでいますが、それは私が探しているものではありません。数字を1セルに表示したいだけです。

どうか私を助けてくれる人がいますか？始めることができないため、試行を投稿できません:-(

よろしく、E。

filevbaxls
7
user2151190

以下のコードを試してください：

以下のコードを実行する前に、フォルダーのパスを変数FolderPathに割り当てます。

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
20
Santosh