ASP - Abrir Excel desde Asp

   
Vista:

Abrir Excel desde Asp

Publicado por Luis Fernando López Duque (5 intervenciones) el 15/02/2008 19:12:43
Buenas tardes.

Desearía saber cómo hago para abrir Excel desde asp y a la vez poner valores en sus celdas.

Expreso mis agradecimientos por la colaboración prestada.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir Excel desde Asp

Publicado por maosa (21 intervenciones) el 18/02/2008 15:21:33
Primero colocas un link a otra pagina asp, este link te abrira el archivo excel, la pagina que redireccionas en el link tendra el codigo para armar tu archivo excel.

El codigo en esa otra pagina debe ser el siguiente.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"

' Si requieres sacar los valores de una BD puedes realizar la conexion aqui

' los datos a colocar en el archivo excel los vas a ir colocando en una tabla

Response.Write( "<TABLE BORDER=""0"" align=""center"">" & vbCrlf)
Response.Write ("<TD><B><I>Fecha de Consulta:</I></B></TD>")
Response.Write( "<TD><center><I>" & fecha & "<I><center></TD>" & vbCrlf)

'===========================================
PintarTabla

Sub PintarTabla ()

'comienzo a imprimir, consultar, etc
'Utiliza el objeto rs abierto
'para pintar la tabla

'La primera fila la escribo directamente, con
'los nombres de los campos
Response.Write( "<TABLE BORDER=""1"" align=""center"">" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B><center>Valija del Dia</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Nombre Responsable</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Sticker</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Numero</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Nombre</center></B></TD>" & vbCrlf )

'Imprimo una fila de la tabla
'para cada registro que encuentre
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD><center>Nvalija_dia</center></TD>" )
'nombre responsable
Response.Write( "<TD><center>nb_usr_act</center></TD>" )

Response.Write( "<TD><center>id_sticker</center></TD>" )
Response.Write( "<TD><center>id_fso</center></TD>" )
'nombre
Response.Write( "<TD><center>nb_fso</center></TD>" )

Response.Write( "</TR>" & vbCrlf )

wend
'Cierro la tabla
Response.Write("</TABLE>")

End Sub 'PintarTabla
'===========================================

'fin
'Limpiamos y cerramos

%>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar