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. これで、特定のタイプのすべてのファイルが新しいワークシートにリストされます。最初の列（列ヘッダーを除く）を選択すると、次のスクリーンショットに示すようにステータスバーにファイルの数が表示されます。