Solucion Para Exportar A Excel/word/pdf

a n g e l u s · #1 (**permalink**) 20/04/2006, 13:55

HOLA AQUI DEJO UN CODIGO PARA EXPORTAR A EXCEL/WORD/PDF SEGUN LA OPCION QUE ENVIEN, ESPERO LES SIRVA

<html>
<head>
<title>EXPORTAR A DOCUMENTO</title>
<%
sub exportarexcel()
Response.buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=respaldo.xls;"
end sub

sub exportarword()
Response.buffer = true
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "Content-Disposition", "filename=respaldo.doc;"
end sub

sub exportarpdf()
Response.AddHeader "Content-Disposition", "attachment;filename=respaldo.pdf;"
Response.ContentType = "application/pdf"
response.Write(request("tabla"))
' Response.BinaryWrite(request("tabla"))
Response.Flush()
Response.Close
end sub

%>

<script language=javascript >
function cerrar(){

var ventana = window.self;
ventana.opener = window.self;
// ventana.close();
}

/*
while (tabla.search("\"") != -1) {
tabla = tabla.replace("\"","'");
}
*/

</script>

</head>

<body onload=cerrar();>

<%
tabla = request("tabla")
opcion = request("accion")
response.Write(tabla)
' response.Binarywrite(tabla)

if tabla <> "" then
if tabla <> "0" then
if opcion = 1 then 'EXCEL
exportarexcel
end if
if opcion = 2 then 'PDF
exportarpdf
end if
if opcion = 3 then 'WORD
exportarword
end if
end if
end if
%>
</body>
</html>

strike20 · #2 (**permalink**) 04/07/2006, 10:47

hola man pero como seria para mostrar multiples consultas????

Potro · #3 (**permalink**) 04/07/2006, 15:02

Carajo se ve bueno pero no le entiendo podrias explicarlo un poco o bien hay alguien que lo pueda explicar.

VBPOWER · #4 (**permalink**) 03/08/2009, 15:37

SERIA BUENO SABER ACERCA DE LA VARIABLE "TABLA" (response.Write(request("tabla")))
PARA PODER ENTENDER MEJOR EL EJEMPLO YA QUE PARA EXPORTAR A EXCEL Y WORD FUNCIONA PERO PARA EXPORTAR A PDF EL ACROBAT ARROJA UN ERROR

spartmarcus · #5 (**permalink**) 23/06/2011, 10:48

Hola no me queda la parte para hacerlo en PDF me guarda el archivo pero, cuando intento abrirlo me manda un error que no fue bien decodificado.

Las siguientes partes no las tengo habilitadas para el response

response.Write(request("tabla"))
//' Response.BinaryWrite(request("tabla"))
//response.flush();

//response.Close;

Gracias por su aayuda

Potro · #6 (**permalink**) 30/06/2011, 08:39

Se revivio un mensaje muy viejo, pero en fin a ver que dicen los moderadores y respondiendo a tu inquietud mi estimado spartmarcus pues este codigo jamas te generara un PDF solo sirve para excel y Word, asi que busca otro tipo de solucion.. saludos

skin_head77 · #7 (**permalink**) 06/07/2011, 10:12

Cita:

Iniciado por Potro

Se revivio un mensaje muy viejo, pero en fin a ver que dicen los moderadores y respondiendo a tu inquietud mi estimado spartmarcus pues este codigo jamas te generara un PDF solo sirve para excel y Word, asi que busca otro tipo de solucion.. saludos

este codigo funciona sin problemas para WORD y EXCEL.............