Tom,

If all the spreadsheets are in the same folder, then you could use Dir() to
loop through them all e.g.

Dim aFilename as String
aFilename = Dir("C:\My Documents\Data\*.xls")

Do While aFilename < ""
' open the file and process it here
'.
'.

' get next filename for the next loop
aFilename = Dir()
Loop


Tim


"Tom" wrote in message
...
I have a series of Excel spreadsheets (probably 135 - 150 ) that I need to
retrieve data and put the data into an access database. I have the VBA
code
so that it retrieves the data from an individual spreadsheet. I think I
can
set up VB code to loop thru a folder and open each excel object get the
information I need and update the database.

What is the best way to accomplish this goal?
1. Is it better to write VB code to go to a folder, loop thru the objects
(ie: open the spreadsheet, update the database and then move to the next
spreadsheet).
2. Is it better to copy the VBA code into a module for each spreadsheet,
open the spreadsheet, update the database, close the spreadsheet and
repeat.

Looking for some opinions on what should be the "best" way to accomplish
the
task. I think looping the Excel objects would be much of the same as
going
thru the Outlook object for example.

Something like this: For Each objExcel In objExcelColl

Thanks for any comments, ideas, insight, code etc!

Tom