Import all excel docs in a folder into access with VBA?

[snipe]

Hey guys,

I have about 60 (or more depending on how long it takes me to do this) excel files that I need to import into access. They do follow a naming format (YYYY_MM_DD.xls).



What is the best way to do a mass import and get all of these into access?

[June7]

Code can loop through folder files and import everything with .xls extension.

Code to list files http://www.devhut.net/2012/07/13/vba...-or-directory/

Include code to check for the file extension as well. The import code might just be TransferSpreadsheet method.

[ranman256]

when you get the code to loop thru files...
(pseudo code)
for each fil in files

'remove existing xl file attached

DeleteTbl kTBL

'attach next file

DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, kTBLx, txtFullPath, True

'import

docmd.openquery "qsImportXL"

next

[snipe]

Thanks guys. Transferspreadsheet added to the code that June7 linked worked great! All good!