Ver Mensaje Individual
  #6 (permalink)  
Antiguo 16/06/2008, 16:38
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 1 mes
Puntos: 88
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>&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
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra