Set ffffff = CreateObject("scripting.Filesystemobject")
Set folder = ffffff.getfolder("e:\temp")
Dim ListOfNeededBooks As New Collection
i = 1
For Each Item In folder.Files
If Mid(Item.Name, Len(Item.Name) — 3) = ".xls" Then ' расширение файла должно быть xls
set tempbook=Application.Workbooks.Open Item.Path, 2, True
ListOfNeededBooks.Add Item:=tempbook
End If
Next Item

Почему 4-я строчка с конца не работает? Как заставить ее заработать?