Foros del Web - Leer libro de excel Permiso denegado

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - Leer libro de excel Permiso denegado (http://www.forosdelweb.com/f15/leer-libro-excel-permiso-denegado-597046/)

Leer libro de excel Permiso denegado

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

Respuesta: Leer libro de excel Permiso denegado

cual es la ruta?

Cita:

Server.MapPath(ruta)

podrias realizar un

Cita:

response.write ruta
response.end()

:pensando:

Respuesta: Leer libro de excel Permiso denegado

la ruta es la siguiente

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

Respuesta: Leer libro de excel Permiso denegado

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

Respuesta: Leer libro de excel Permiso denegado

si tien todos los permisos =(

Respuesta: Leer libro de excel Permiso denegado

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

Cita:

'**************
'Funcion lectora
'**************
function lectura(RS)
respuesta = "<TABLE><TR><td> </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
:adios:

Respuesta: Leer libro de excel Permiso denegado

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

Respuesta: Leer libro de excel Permiso denegado

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 :-D

Respuesta: Leer libro de excel Permiso denegado

amigos

ya lo he solucionada

=D

aki esta el enlace para los que les pueda servir

excel

Gracias a todos

Respuesta: Leer libro de excel Permiso denegado

Cita:

Iniciado por Shiryu_Libra (Mensaje 2451340)

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

Cita:

Iniciado por funkain (Mensaje 2452480)

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

ese link era el que buscaba... :-D
que bueno que lo encontraste :arriba: