BrewDog.. you once gave me the following code to import an excel spreadsheet automatically into the database. I'm looking to modify the ** section ** (with asterics) so that Access 97 file is imported rather than an excel file.
dim varFile as variant
varFile = dir("c:\TEST\FILE1.XLS")
if len(varFile) > 1 then
''' here is where I need to edit
***do.cmd transferspreadsheet, etc.***
acspreadsheettypeExcel97, "File1 Table", varFile
currentdb.execute("insert into [Quote Table] select * from [File1 Table]")
docmd.deleteobject actable, "File1 Table"
msgbox "The file 'File1.xls' is not in the specified directory."
Can you help?