For....each w/ workbook files

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have daily production workbooks that I need to combine into a monthly total
workbook. They each have the same layout/format etc. I just need to step
through each workbook in a directory and add the numbers to the monthly total
workbook. Is it possible to use a for...each loop? If so, what is the
correct syntax?

eg...

dim wkb as workbook
for each wkb in <Path>
wkb.open
'add numbers to ThisWorkbook
wkb.close
next wkb

where <Path> is the same directory as ThisWorkbook (which contains the code)
 
Thanks Ron. Your code is a little over my head, but it seems to require
either hard-coding the file names or getting user input (via
GetOpenFileName). Is there not a way to open all the files in a directory
(either one at a time or at the same time)?
 
Back
Top