如何在 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. 現在所有指定類型的檔案都已列在新工作表中。只需選取不含欄標題的第一欄，即可在狀態欄中取得檔案數量，如下方截圖所示：