excel - 计算特定文件夹中具有特定文件名的文件

Question

我将首先描述我的代码的定义，然后定义我的问题，最后显示我当前的代码。

定义:

我正在尝试创建一个循环函数，该函数将计算具有特定/定义名称的文件夹中具有特定/定义名称的文件的数量。

AE 列定义文件夹路径(“文件夹”)。
AH 列定义文件名(“ExcelFN”)。

手机 AI1定义这个函数应该循环多少行(AI1 = "x")。

我希望该函数 (1) 循环 x 行数，(2) 计算在定义的文件夹 (FolderPath = 单元格“AE & i”) 中找到了多少具有已定义 FileName (FileName = cell "AH & i") 的文件，然后(3)将文件数放入单元格“AI＆i”，最后(4)移动到下一行“i”并重复前面的步骤。

问题:

我的问题是我的代码将 1、2、3、4、5 等放置在 AI 的下方 - 请注意，当我向下移动列表时，我没有连续更大的文件数，应该是显然，无法保存多个同名文件。

我的猜测是，我的代码在计算下一行的文件数之前没有将 NumFiles 刷新为零，只是将当前行的文件数添加到前一行的文件数中。

代码:

最后 - 这是我的代码:

Sub CountFiles()

    Sheets("Sheet1").Activate

    Dim i As Integer
    Dim x As Integer
    Dim Folder As String
    Dim ExcelFN As String
    Dim NumFiles As Integer

    x = Sheets("Sheet1").Range("AI1").Value '====>> Define Number of Rows <<====

    For i = 2 To x

        Folder = Sheets("Sheet1").Range("AE" & i).Value & "\"
        ExcelFN = Sheets("Sheet1").Range("AH" & i).Value

        Filename = Dir(Folder & ExcelFN & "*" & ".xlsm")

        While Filename <> ""
            NumFiles = NumFiles + 1
            Filename = Dir()
        Wend

        Sheets("Sheet1").Range("AI" & i) = NumFiles

    Next i
End Sub

Answer 1

只需重置 NumFiles 的值在循环开始时:

For i = 2 To x

    NumFiles = 0 '<-- Reset count

    Folder = Sheets("Sheet1").Range("AE" & i).Value & "\"
    ExcelFN = Sheets("Sheet1").Range("AH" & i).Value

    Filename = Dir(Folder & ExcelFN & "*" & ".xlsm")

    While Filename <> ""
        NumFiles = NumFiles + 1
        Filename = Dir()
    Wend

    Sheets("Sheet1").Range("AI" & i) = NumFiles

Next i