Folder Processor

1Option Explicit
2 
3' Folder Processor — recursively iterate every file in a folder and
4' consolidate its data into a single workbook.
5 
6Public Sub ProcessFolder()
7    Dim folderPath As String, filePath As String
8    Dim src As Workbook, dst As Worksheet
9    Dim nextRow As Long
10 
11    folderPath = SelectFolder()
12    If Len(folderPath) = 0 Then Exit Sub
13 
14    Set dst = ThisWorkbook.Worksheets("Consolidated")
15    dst.Cells.Clear
16    dst.Range("A1:E1").Value = Array("Source", "Date", "Category", "Amount", "Notes")
17    nextRow = 2
18 
19    filePath = Dir(folderPath & "\*.xlsx")
20    Do While Len(filePath) > 0
21        Application.ScreenUpdating = False
22        Set src = Workbooks.Open(folderPath & "\" & filePath, ReadOnly:=True)
23        nextRow = AppendSheetRows(src.Worksheets(1), dst, nextRow, filePath)
24        src.Close SaveChanges:=False
25        Application.ScreenUpdating = True
26        filePath = Dir()
27    Loop
28 
29    MsgBox nextRow - 2 & " rows consolidated.", vbInformation
30End Sub