|
-
Nov 13th, 2007, 08:49 PM
#1
Thread Starter
Addicted Member
Recursing sub-folders to open 1 XL file, copy 1 WS to MstrF
Hi all.
I need a bit of help in writing code to recurse sub-folders, open the only XL file in there & copy the master sheet of that file (which has the same name as the sub-folder) to a master summary file.
Here is the over all scenario.
I am the financial manager for a small company and I down load our bank accounts, visa accounts & payments made by direct credit (DC’s) thru Internet Banking as CSV files. This is no problem as I have macros that import & format the data as required to the requirements of the account type.
The DC’s are slightly different as I may have up 10 CSV files per month, one per transaction which may have up to 30 creditors per transaction. I use a macro to import the CSV file/sheet into a summary XL file for the month.
Here is my challenge – I now want to summarise these monthly summaries into one annual summary for collation & reporting purposes.
To do this I need to the following - But I am not sure if this “pseudo-code” is possible or I am on the right track.
1. Open the Master annual summary (MAS) file
2. ascertain & record in an array the all the subfolders
3. Loop thru the subfolders & open the required work book
4. Copy the summary sheet (the copied CSV sheets are still in the summary file) of the workbook
5. Close the monthly summary workbook
6. Paste the sheet into MAS
7. After looping thru & save the MAS.
But I am not sure if this “pseudo-code” is possible or I am on the right track.
I have code that recurses & lists files, copies files, backup files, rename files, but not actually open files in the sub-folders & do things by looping thru.
I think I read some where that an array cannot actually open files in subfolders but you loop thru the sub-folders, use the array to go to the individual sub-folders and open the file to do stuff.
Added info - the structure I have is like this
Folder structure - DCPayments\08 (where 08 is August & all the folders are named as mm & the summary file is “DC0708.xls”
Cheers
Lionel Downunda
Lionel DownUnda (NZ)
XP Prof SP3, Office 2002 SP3
If the universe is expanding what is it expanding into?
-
Nov 13th, 2007, 08:55 PM
#2
Re: Recursing sub-folders to open 1 XL file, copy 1 WS to MstrF
do a search for recursive dir or fso
i posted both in one thread a while ago, and there are many other examples
probably didn't read your post well enough, you can do all you asked, in the recursive loop once you find the file you want you can just exit the loops and open the filename using the last folder path from the loop,
Last edited by westconn1; Nov 13th, 2007 at 08:58 PM.
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
-
Nov 14th, 2007, 01:54 PM
#3
Thread Starter
Addicted Member
Re: Recursing sub-folders to open 1 XL file, copy 1 WS to MstrF
Thanks for this. I knew there would be something there & probably will need help finetuning once i get to write it.
Lionel DownUnda (NZ)
XP Prof SP3, Office 2002 SP3
If the universe is expanding what is it expanding into?
-
Nov 14th, 2007, 03:22 PM
#4
Re: Recursing sub-folders to open 1 XL file, copy 1 WS to MstrF
if you are seaching mutiple files in different folders, you can either open the files as you find them, then continue the search after processing each, or find all saving the path and filename into an array, then process all the files in the array
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|