I have done similar with Excel files recently. Here's the code: The key is the Set fol = fso.GetFolder(s trPath) line.

Setup_Table ("tblX")
Set db = CurrentDb

strPath = "C:\Documen ts and Settings\wharmo n\Desktop\Rapid ILL for Will\Backup05-06\"

' Fill the newly created table above with row and column data from the
' spreadsheet.
' Procedure: Spreadsheets...