以下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.現在，所有特定類型的文件都在新的工作表中列出。 只需選擇沒有列標題的第一列，即可在狀態欄中獲得文件數，如下圖所示：