以下VBA可以帮助您轻松地计算特定文件夹中文件的特定类型，例如计算文件夹中的所有.xlsx文件。 请执行以下操作：

1。 按 其他 + 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.现在将出现一个对话框，向您显示特定文件夹中存在多少种特定类型的文件。 只需关闭对话框。

轻松地将多个工作表/工作簿/ CSV文件组合到一个工作表/工作簿中

将不同工作簿中的数十张工作表合并到一张工作表中可能会很乏味。但是使用 Kutools for Excel 合并（工作表和工作簿） 实用程序，只需单击几下就可以完成！

如果您打开了一个文件夹，通常您会在该文件夹的底部看到所有文件的数量。这种方法将引入 Kutools for Excel 的 打开包含文件夹 实用程序打开包含当前工作簿的文件夹，然后获取此文件夹中的文件数。

1。 点击 Kutools 加 > 工作簿 > 打开包含文件夹。 看截图：

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

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

备注：本 打开包含文件夹 如果您以前从未保存过当前工作簿，则该实用程序将无效。

有时，您可能想要计算文件夹及其子文件夹中多种类型的文件。实际上 Kutools for Excel 提供了另一种 文件名列表 实用程序轻松解决它。

1。 点击 Kutools 加 > 导入/导出 > 文件名列表 打开“文件名列表”对话框。

2.在打开的“文件名列表”对话框中，请执行以下操作：

3。 点击 Ok 文件名列表对话框中的按钮。

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