Abrindo arquivos em Excel

Ola pessoal,

Primeiro queria saber se alguem tem um codigo que funcione como esse topico fala, veja: http://forum.imasters.com.br/index.php?sho...arquivo,+object

Sabem?

Pois estou precisando abrir arquivos que seja guiado pelo banco de dados, do tipo .xls, .doc e powerpoint

E estou tentando fazer com esse codigo

Set ObjExcel = Server.CreateObject("Excel.Application")
Dim ObjWorkBook
Dim ObjWorkSheet

ObjExcel.Visible = False
ObjExcel.DisplayAlerts = False
ObjExcel.UserControl = False

linha 116: Set ObjWorkbook = ObjEx.Workbooks.Open("C:\SiteJose\teste.xls")
Set ObjWorkSheet = ObjWorkbook.Sheets.item("teste")

i = 1
While ObjWorkSheet.cells(i,1) <> ""

Response.Write ObjWorkSheet.cells(i,1)

i = i + 1
Wend

Set ObjWorkbook = nothing
Set ObjWorkSheet = Nothing
Set ObjExcel = Nothing
Mas da esse erro:

Objeto necessário: ''

/sitejose/adm1.asp, line 116

Obrigado!

Marcelo