Excel で特定のフォルダーまたはディレクトリ内のファイル数をカウントするにはどうすればよいですか？

次の VBA コードを使えば、特定のフォルダー内にある指定した種類のファイルを簡単にカウントできます（たとえば、フォルダー内のすべての.xlsx ファイルを数えるなど）。以下の手順に従ってください。

1。AltキーとF11キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2。挿入＞モジュールをクリックし、開いたモジュールウィンドウに以下の VBA コードを貼り付けてください。

VBA：特定のフォルダー内の特定のファイルをカウントする

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

注：上記の VBA コードは、特定のフォルダー内の.xlsxファイルをカウントします。他のファイル形式をカウントしたい場合は、xPath = xFolder & 「\*.xlsx」の行を見つけ、.xlsxを目的のファイル拡張子に変更してください。

3。F5キーを押すか、実行ボタンをクリックして、この VBA コードをすぐに実行しましょう。

4。開いた「参照」ダイアログボックスで、特定のファイルの種類をカウントしたいフォルダーを選択し、OKボタンをクリックします。

5。これでダイアログボックスが表示され、指定したフォルダー内にある特定のファイル種別の件数を確認できます。あとはダイアログボックスを閉じるだけです。

フォルダーを開いていると、通常はそのフォルダーの下部に全ファイル数が表示されます。ここでは、Kutools for Excel の現在のドキュメントが保存されているフォルダを開くユーティリティを使って、現在のブックを含むフォルダーを開き、そのフォルダー内のファイル数を確認する方法をご紹介します。

1。KUTOOLS PLUS＞ワークブック＞現在のドキュメントが保存されているフォルダを開くをクリックします。（スクリーンショットを参照）

2。これで、現在のブックを含むフォルダーが開きます。

フォルダーを開く内の任意のファイルの選択を解除すると、以下のスクリーンショットのように、このフォルダーの下部に全ファイル数が表示されます。

注：現在のドキュメントが保存されているフォルダを開くユーティリティは、現在のブックを一度も保存していない場合は機能しません。

フォルダーとそのサブフォルダー内にある複数のファイル形式をカウントしたい場合があります。実は、ファイル名リストという別のユーティリティがKutools for Excel に用意されており、これを使えば簡単に解決できます。

1。KUTOOLS PLUS>インポート/エクスポート>ファイル名リストをクリックすると、ファイル名リストダイアログボックスが開きます。

2。開いたファイル名リストダイアログボックスで、以下の操作を行います。

3。ファイル名リストダイアログボックスで、OKボタンをクリックします。

4。これで、指定したタイプのすべてのファイルが新しいワークシートに一覧表示されます。列ヘッダーを除く最初の列を選択すると、以下のスクリーンショットのように、ステータスバーにファイル数が表示されます。