(Предыдущий пост)

Мне нужно создать макрос, который просматривает файлы в одной папке и запускает код, который я предоставил ниже. Все файлы структурированы одинаково, однако имеют разные данные. Код помогает мне перейти к указанному файлу назначения и подсчитывает число «ДА» в столбце. Затем он выводит его в CountResults.xlsm (основная рабочая книга). У меня есть следующий код с помощьюZac:

Private Sub CommandButton1_Click()

    Dim oWBWithColumn As Workbook: Set oWBWithColumn = Application.Workbooks.Open("C:\Users\khanr1\Desktop\CodeUpdateTest\Test01.xlsx")
    Dim oWS As Worksheet: Set oWS = oWBWithColumn.Worksheets("Sheet2")

    ThisWorkbook.Worksheets("Sheet1").Range("B2").Value = Application.WorksheetFunction.CountIf(oWS.Range("B:B"), "YES")

    oWBWithColumn.Close False

    Set oWS = Nothing
    Set oWBWithColumn = Nothing

End Sub

Вот как выглядит CountResults.xlsm (основная рабочая книга):

И это пример того, как выглядит Test01.xlsx:

Отметим, что имеется 10 тестовых файлов (Test01, Test02 ...), но код должен иметь возможность обновлять любые новые добавленные тестовые файлы (например, Test11, Test12 ...). У меня была идея включить столбец «Файлы» в первое изображение, чтобы вытащить имена файлов и зациклить их.