Fichero excel ver en asp/html
Hola red2,
Mi pregunta es que tengo un fichero de excel y yo quiero mostrarlo como una página de asp, no se si esto se podrá hacer. Dicho fichero también tiene que recoger unos parámetros desde asp para mostrarlos. Espero me haya explicado con claridad es muy urgente contestame lo antes posible muchísimas gracias de antemano
Mi pregunta es que tengo un fichero de excel y yo quiero mostrarlo como una página de asp, no se si esto se podrá hacer. Dicho fichero también tiene que recoger unos parámetros desde asp para mostrarlos. Espero me haya explicado con claridad es muy urgente contestame lo antes posible muchísimas gracias de antemano
1 respuesta
Respuesta de red2
1
Lo que me pides no es nada fácil.
Primero tienes que crear con ASP una conexión al fichero que selecciones., pero ASP solo trabaja con Bases de datos, por lo que tendrás que importar tu fichero de Excel a una base de datos del tipo Access (que es bastante sencillo)
Para verlo, la conexión tendría que ser algo así:
<body>
SQL="SELECT... "
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "campo"
set rs = oConn.Execute(SQL)
miTabla = rs.GetRows
'Liberamos los objetos
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
'Recorremos el vector
'Desde el primero hasta el último registro...
for I = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último campo...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & "-" & miTabla(J, I) & "-" & "</TD>")
next
Response.Write("</TR>")
next
Response.write("</table>")
%>
Primero tienes que crear con ASP una conexión al fichero que selecciones., pero ASP solo trabaja con Bases de datos, por lo que tendrás que importar tu fichero de Excel a una base de datos del tipo Access (que es bastante sencillo)
Para verlo, la conexión tendría que ser algo así:
<body>
SQL="SELECT... "
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "campo"
set rs = oConn.Execute(SQL)
miTabla = rs.GetRows
'Liberamos los objetos
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
'Recorremos el vector
'Desde el primero hasta el último registro...
for I = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último campo...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & "-" & miTabla(J, I) & "-" & "</TD>")
next
Response.Write("</TR>")
next
Response.write("</table>")
%>
