Forum home » Delegate support and help forum » Microsoft Excel VBA Training and help » Excel
|
|
|
The UK's most regular Training information: |
|
Welcome. Please choose your application (eg. Excel) and then post your question. Our Microsoft Qualified trainers will then respond within 24 hours (working days). Frequently Asked Questions
Any suggestions, questions or comments? Please post in the Improve the forum thread. |
Excel
Resolved · Medium Priority · Version 2007
Reply Tue 14 Oct 2008, 16:44Delegate Hiral said...
Hiral has attended:
Excel VBA Intro Intermediate course
Excel
How to consolidate data of various worksheets from different workbooks into one worksheet ?
For upcoming training course dates see: Pricing & availability
RE: Excel data consolidation
Hiral,
We looked at this with the last example of the course: merging data from various source workbooks (Centre1, Centre2, ...) into a single workbook (Consolidated).
The example relies on all the source workbooks having names that can be constructed as "Centre" & i, for i = 1, 2, ..., inside a loop. The body of the loop is:
source_wbname = "Centre " & i & ".xls"
Workbooks.Open (source_wbname) 'Becomes active
ActiveWorkbook.Worksheets("Marks").Copy _
after:=Workbooks(destination_wbname).Worksheets(wscount)
Workbooks(source_wbname).Close 'This workbook becomes active
ActiveWorkbook.Worksheets("Marks").Name = "Centre " & i
wscount = wscount + 1
i = i + 1
We used the file-not-found error to jump out of the loop - again, see the notes.
Note that when using multiple workbooks, life is simpler if they are all in the same folder on disk.
Hope this helps,
/Roy MacLean
|