Leer libro de excel Permiso denegado

[funkain]

hola a todos tengo el siguiente problema tratando de ller el nombre de libro de un archivo excel

estas son mis lineas de codigo

Set xls = CreateObject("Excel.Application")
'xls.Workbooks.Open attach
'a = xls.Worksheets(1).Name
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath(ruta)

Set campana = Server.CreateObject("ADODB.Recordset")
campana.Open "Select * From [Hoja1$] ", conexion,3,3


y me da error cuando crea el archivo excel
le e dao los permisos para todos al usuario invitado y aun asi nada

tengo win2003, con office

que cosa puede ser??


el error es este


Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado: 'CreateObject'

/IGS/servicios-sms/examinar-campana2.asp, línea 163




gracias

[Shiryu_Libra]

cual es la ruta?

Server.MapPath(ruta)

podrias realizar un

response.write ruta
response.end()

[funkain]

la ruta es la siguiente


D:\web\IGS\servicios\campanas\INT200806161643.xls

[Shiryu_Libra]

y sobre la carpeta campanas... tienes todos los permisos de escritura/modificacion en el usuario IUSR_ ???

[funkain]

si tien todos los permisos =(

[Shiryu_Libra]

es extraño... a menos que necesites darle permisos sobre el DLL de la aplicacion....

solo necesitas leer el documento de excel???

si es asi
tengo esta rutina, para dicho procedimiento... es un poco diferente a la tuya, aparte que estoy utilizando EXCEL 2007, pero se puede cambiar el tipo de conexion

el codigo es el siguiente

'**************
'Funcion lectora
'**************
function lectura(RS)
respuesta = "<TABLE><TR><td>&nbsp;</td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Name & "</TD>"
Next

respuesta = respuesta & "</TR>"
RS.MoveFirst

While Not RS.EOF
respuesta = respuesta & "<TR><td>"&rs.AbsolutePosition&"</td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Value
Next
RS.MoveNext
respuesta = respuesta & "</TR>"
Wend
respuesta = respuesta & "</TABLE>"

lectura=respuesta
end function
'*****************
'termina funcion lectora
'*****************

procedimiento estandar
strcxn = "Provider=Microsoft.ACE.OLEDB.12.0;"&_
"Data Source ="&server.MapPath("ADOExcel.xls")&";Extended Properties=Excel 12.0 Xml;"

strclta = "select * from [Hoja1$] order by id_usuario"

response.Write strcxn & "<br />"
response.Flush()

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strcxn

Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.CursorType = 3 'Static cursor.
.LockType = 3 'Pessimistic Lock.
.Source = strclta
.Open
end With

%><br><%

Response.Write("Original Data")
response.Write lectura(objrs)
objRS.Close
Set objRS = Nothing

a lo mejor te sirve

[funkain]

si el problema de eso es que pasa si el nombre de la hoja no es Hoja1 si no cualquier cosa =(

[Shiryu_Libra]

jajajaj
solo cambia la hoja1, por lo que ocupes compañero... de cualquier maner, trata de implementarlo, aki lo hacemos volar... aunque no sea cohete

[funkain]

amigos

ya lo he solucionada


=D

aki esta el enlace para los que les pueda servir


excel


Gracias a todos

[Shiryu_Libra]

Iniciado por Shiryu_Libra

es extraño... a menos que necesites darle permisos sobre el DLL de la aplicacion....

Iniciado por funkain

...
aki esta el enlace para los que les pueda servir
excel
Gracias a todos

ese link era el que buscaba...
que bueno que lo encontraste