Abrindo arquivos em Excel

[Marcelo VMB 0]

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

[william.santos 0]

Troque...

 

ObjEx.Workbooks.Open("C:\SiteJose\teste.xls")

Por...

 

ObjExcel.Workbooks.Open("C:\SiteJose\teste.xls")

Dá uma olhada no teu código, rapaz. Esse foi o objeto que você instanciou no começo da página.

 

[]'z

[Marcelo VMB 0]

Ola pessoal,

 

Estou com um código para Excel...E deu esse erro:

 

Erro de tempo de execução do Microsoft VBScript (0x800A0009)

Subscrito fora do intervalo

/sitejose/adm1.asp, line 117

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

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

 Set ObjWorkbook = ObjEx.Workbooks.Open("C:\SiteJose\teste.xls")
linha 117: 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

Obrigado!