Transfer Multiple Excel Files

[hstockbridge5]

Hi,

I am trying to link many Excel files into a database with no luck.

Here is the code:
'==============================================
Sub LinkExcelFiles()

Dim fso 'FileSystemObject
Dim f ' Folder
Dim f2 ' Files
Dim f1 ' File

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("xxxxxxxxxxxxx")
Set f2 = f.Files

For Each f1 In f2 'c
If Right(f1.Name, 4) = ".xls" Then
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel97,
Left$((f1.Name), (Len(f1.Name) - 4)), f1.Name, False
End If

Application.RefreshDatabaseWindow
Next

End Sub
'==============================================
Any help you can lend would be appreciated.

- Henry