Foros del web, para los que viven de bits

funkain · 16-jun-2008, 12:27

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 · 16-jun-2008, 12:58

cual es la ruta?

Cita:

Server.MapPath(ruta)

podrias realizar un

Cita:

response.write ruta
response.end()

funkain · 16-jun-2008, 14:18

la ruta es la siguiente

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

Shiryu_Libra · 16-jun-2008, 15:53

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

funkain · 16-jun-2008, 16:03

si tien todos los permisos =(

Shiryu_Libra · 16-jun-2008, 16:38

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

funkain · 16-jun-2008, 16:43

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

Shiryu_Libra · 16-jun-2008, 16:50

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 · 17-jun-2008, 11:11

amigos

ya lo he solucionada

=D

aki esta el enlace para los que les pueda servir

excel

Gracias a todos

Shiryu_Libra · 17-jun-2008, 11:14

Cita:

Iniciado por Shiryu_Libra

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

Cita:

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

16-jun-2008, 12:27	#1 (permalink)
funkain Fecha de Ingreso: enero-2008 Mensajes: 49	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

16-jun-2008, 12:58	#2 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.955	Respuesta: Leer libro de excel Permiso denegado cual es la ruta? Cita: Server.MapPath(ruta) podrias realizar un Cita: response.write ruta response.end() __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

16-jun-2008, 14:18	#3 (permalink)
funkain Fecha de Ingreso: enero-2008 Mensajes: 49	Respuesta: Leer libro de excel Permiso denegado la ruta es la siguiente D:\web\IGS\servicios\campanas\INT200806161643.xls

16-jun-2008, 15:53	#4 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.955	Respuesta: Leer libro de excel Permiso denegado y sobre la carpeta campanas... tienes todos los permisos de escritura/modificacion en el usuario IUSR_ ??? __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

16-jun-2008, 16:03	#5 (permalink)
funkain Fecha de Ingreso: enero-2008 Mensajes: 49	Respuesta: Leer libro de excel Permiso denegado si tien todos los permisos =(

16-jun-2008, 16:38	#6 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.955	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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

16-jun-2008, 16:43	#7 (permalink)
funkain Fecha de Ingreso: enero-2008 Mensajes: 49	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 =(

16-jun-2008, 16:50	#8 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.955	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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

17-jun-2008, 11:11	#9 (permalink)
funkain Fecha de Ingreso: enero-2008 Mensajes: 49	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

17-jun-2008, 11:14	#10 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.955	Respuesta: Leer libro de excel Permiso denegado Cita: Iniciado por Shiryu_Libra es extraño... a menos que necesites darle permisos sobre el DLL de la aplicacion.... Cita: 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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado