如何在 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. 在弹出的“浏览”对话框中，选择要统计特定文件类型的文件夹，然后点击确定按钮。

5. 此时将弹出一个对话框，显示该文件夹中特定文件类型的数量，关闭即可。

如果已打开某个文件夹，通常会在该文件夹底部看到所有文件的数量。本方法将介绍如何使用 Kutools for Excel 的打开当前文档所在文件夹工具，快速打开包含当前工作簿的文件夹，从而获取其中的文件数量。

1. 单击 KUTOOLS PLUS > 工作簿 > 打开当前文档所在文件夹。参见截图：

2. 现在包含当前工作簿的文件夹已打开。

取消选中打开文件夹中的任意文件，您将在该文件夹底部看到所有文件的数量，如下方截图所示：

注意：如果您从未保存过当前工作簿，打开当前文档所在文件夹工具将无法使用。

有时，您可能希望统计某个文件夹及其子文件夹中的多种文件类型。Kutools for Excel 还提供了一款文件名目录工具，可轻松解决此问题。

1. 单击 KUTOOLS PLUS > 导入导出 > 文件名目录，即可打开“文件名目录”对话框。

2. 在打开的文件名目录对话框中，请按以下步骤操作：

3. 单击文件名目录对话框中的确定按钮。

4. 现在，所有指定类型文件都列在新工作表中。只需选中不含列标题的第一列，即可在状态栏中获得文件数量，如下方截图所示：