extract data from excel spreadsheets

I have hundreds of spreadsheets in a folder that were all based on the same template so they all have contact data on the same sheet in the same cells - cell B2 is the business name, B3 is the street, B4 the city, etc. I want to pull that data intoa database, or at least into a single spreadsheet. Has anyone done this using VBA? I'd like the code.