Advanced VBA | FileSystemObjects exercise | Consolidating data from workbooks on your hard disk

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

Software ==> Advanced VBA  (33 exercises)
Version ==> Any MS Office versions
Topic ==> FileSystemObjects  (4 exercises)
Level ==> Harder than average
Subject ==> VBA training
Before you can do this exercise, you'll need to download and unzip this file (if you have any problems doing this, click here for help).

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

Open up the file called Consolidation of divisional data in the above folder.  It contains a data range that you need to fill:

Range of consolidation data

The idea of this exercise is to fill this area with data. Read on!

Close the workbook down, move it to a different folder and then re-open it.

You're about to write a macro to loop over all of the files in a folder.  This will be easier to do if you don't have to include code to ignore the workbook containing your macro also!

Open one of the other workbooks (eg Division 1).  You should see that this contains some data submitted by division 1 of a fictitious company:

Division 1 data

The data has the same format as on the consolidation spreadsheet.

Close down the division workbook.  In the original workbook, start a macro, and get it to reference the Microsoft Scripting Runtime object library.

Write a macro to loop over all of the files in the folder above, opening all of those apart from the consolidation workbook itself and copying the values into the consolidation range.

The easiest way to do this is to copy the range, then paste special it onto the consolidation range, choosing to add the values into what's already there.

Run your macro.  If it succeeds, you should be able to read a message in the green cells underneath:

The final message

The final message should appear here (this isn't it - we didn't want to spoil the surprise!).


Close down the workbook, reflecting that this could actually save you a fair amount of time in your daily or monthly routines.

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.
This page has 0 threads Add post