Option Explicit

Sub BatchProcess()
          Dim FileSpec As String
          Dim i As Integer
          Dim FileName As String
          Dim FileList() As String
          Dim FoundFiles As Integer

      '   Указание пути и файла
10        FileSpec = ThisWorkbook.Path & "\" & "text??.txt"
20        FileName = Dir(FileSpec)
          
      '   Был ли найден файл?
30        If FileName <> "" Then
40            FoundFiles = 1
50            ReDim Preserve FileList(1 To FoundFiles)
60            FileList(FoundFiles) = FileName
70        Else
80            MsgBox "Не найдены файлы, которые соответствуют " & FileSpec
90            Exit Sub
100       End If
          
      '   Получение других имен файлов
110       Do
120           FileName = Dir
130           If FileName = "" Then Exit Do
140           FoundFiles = FoundFiles + 1
150           ReDim Preserve FileList(1 To FoundFiles)
160           FileList(FoundFiles) = FileName & "*"
170       Loop

      '   Циклический обход и обработка файлов
180       For i = 1 To FoundFiles
190           Call ProcessFiles(FileList(i))
200       Next i
End Sub

Sub ProcessFiles(FileName As String)
      '   Import the file
210       Workbooks.OpenText FileName:=FileName, _
              Origin:=xlWindows, _
              StartRow:=1, _
              DataType:=xlFixedWidth, _
              FieldInfo:= _
              Array(Array(0, 1), Array(3, 1), Array(12, 1))
      '   Ввод итоговых формул
220       Range("D1").Value = "A"
230       Range("D2").Value = "B"
240       Range("D3").Value = "C"
250       Range("E1:E3").Formula = "=COUNTIF(B:B,D1)"
260       Range("F1:F3").Formula = "=SUMIF(B:B,D1,C:C)"
End Sub

40            FoundFiles = 1

50            ReDim Preserve FileList(1 To FoundFiles)