You can build a list by using something like this:
Code:
Dim objXL As Object
Dim xlWS As Object
Dim strCriteria As String
Dim i As Integer
Dim qdf As DAO.QueryDef
Set objXL = CreateObject("Excel.Application")
objXL.Workbooks.Open("FilePathAndFileNamewithExtensionHere")
With objXL
Set xlWS = .ActiveWorkbook.Worksheets(1)
Do Until xlWS.Range("A" & i).Value = vbNullString
strCriteria = strCriteria & xlWS.Range("A" & i).Value & ","
Loop
.ActiveWorkbook.Close False
.Quit
End With
strCriteria = Left(strCriteria, Len(strCriteria) - 1)
strCriteria = "[FieldNameHere] In(" & strCriteria & ")"
Set qdf = CurrentDb.QueryDefs("QueryNameHere")
qdf.SQL = ReplaceWhereClause(qdf.SQL, strCriteria)
qdf.Close
Set qdf = Nothing
Set objXL = Nothing
You would need to download the SQL tools module from MVP Armen Stein which has some cool and useful things like ReplaceWhereClause.