Pošto je ovo Access forum, odgovoriću ti sledeće. Moraš da spojiš fajlove ako želiš da izbaciš duplikate. Posle spajanja uvezi spojeni fajl u jednu praznu .mdb datoteku i pogledaj na sledećem linku kako da se oslobodiš duplikata.
http://www.praktikum.co.yu/office/access/acc_130.asp#acc_130a

Mogao bi i napraviti program koji bi citao te xls fajlove i prepisivao ih u tablicu
Naravno, morali bi podaci u tim xls biti na istim mjestima , kolonama.

evo dio mog koda gdje prepisujem iz excel tablice, pa ti mozda da ideju
ti bi jos samo morao napraviti da ti upise u listbox sve fajlove koje prepisujes




lnkput="c:\konta\konto.xls"
kol = Val(kolona) ' stupac iz kojeg cita vrijednosti ( A-kol , A11,b11,c11 itd )
Set objexcel = CreateObject("Excel.Application")
objexcel.Workbooks.Open (lnkput)


sveukupno = 0
For j = 1 To 1000

konto = objexcel.Cells(j, 1).Value
iznos = objexcel.Cells(j, kol).Value

If Len(Trim(konto)) = 6 Then

If IsNumeric(konto) = True Then
If IsNumeric(iznos) = False Then
MsgBox "Niste odabrali dobru kolonu za prepis. Vrijednost u koloni = " + iznos
Exit Sub
End If
brprep = brprep + 1
rek2.AddNew
rek2.Fields("AccountID") = konto
rek2.Fields("Accountvalue") = iznos
rek2.Fields("Statementid") = 2
sveukupno = sveukupno + iznos
rek2.Update
End If
End If
Next j


rek2.Close
Set dato2 = Nothing

objexcel.Application.DisplayAlerts = False
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True
[Forms]![unos]![FinStatment].Requery
MsgBox "Podaci za Plan su prepisani, Prepisano: " + Trim(Str(brprep)) + " konta" & Chr(13) & "Sveukupno : " & Format$(sveukupno, "###,###,###,###.00")

End Sub