Import multiple Excel files to Access

[rcollins]

So I did the searching for someone to already have the answer. I had modified this code for My spreadsheets and database. I have marked the three lines in the code that are bad. Am I missing something?
At the click of a button, this is supposed to get info from all of the spreadsheets at once.

Private Sub Command25_Click()
 
Dim strfile As String
ChDir ("D:\Daily Billables\Finished")
strfile = Dir("*xls")
Do While Len(strfile) 0 (Bad Line)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9
"ImportFromThisTable" , "D:\UserData\ISE Database\ISE UI\ISE Database" & strfile (bad line)
True, "tblClientContact"  (bad Line)
strfile = Dir
Loop
End Sub
 

[Denburt]

Try this:

Do While Len(strfile) > 0 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,"ImportFromThisTable" , "D:\UserData\ISE Database\ISE UI\ISE Database" & strfile, True, "tblClientContact"