如何在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. 现在，所有特定类型的文件都列在一个新的工作表中。只需选择第一列（不包括列标题），您就会在状态栏中看到文件的数量，如下图所示：