Re: Exportar de ASP a EXCEL
 

He leido sobre como exportar los datos de asp a excel, sin embargo tengo dos problemas,

1. El primero es que al exportar primero necesito llenar unos grids en el explorador y de ahi pasarlos al archivo, de otra manera no me guarda nada, y lo que me pasa a excel no es exactamente lo de los grids, sino todo lo que tenga en la pantalla activa de asp, esto puede ser botones, imagenes, etc. (claro que en caso de que no sea texto lo que hace es poner solo los títulos) a mi me hubiera gustado que al exportar a excel hubiera podido modificar en un archivo que ya existe y acomodar los datos en las celdas y columnas que yo quisiera, pero no he sabido como, de cualquier manera lo he resuelto haciendo una macro en el archivo de base de excel y conectandolo con el que se crea. Pero, alguien sabe como dar formato al exportar a excel???

2. El segundo es que una vez que exporto, quiero que se cierre la ventana popup que abri para los datos, pero no lo hace y se queda abierta por lo que lo tengo que hacer manual, no se si deba hacer algo mas, aqui les pongo mi codigo a ver si alguien puede ayudarme...

'AQUI HAGO MIS CONSULTAS Y LLENO MIS GRIDS
objRequisicion.Año = Request("Año")
objRequisicion.IdEmpresa = Request("idE")
objRequisicion.IdRequisicion = Request("idR")
objRequisicion.TraeUnaRequisicion()
gvReq.DataSource = objRequisicion.Datos
gvReq.DataBind()
objRequisicion.TraeDetallesRequisicion()
gvDetalles.DataSource = objRequisicion.Detalle
gvDetalles.DataBind()

'HAGO MI ARCHIVO Y LO COMIENZO A LLENAR
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("content-disposition", "attachment; filename=DatosRequisicion.xls")

' lets print the fields on top
c = CInt(gvReq.Columns.Count)
For i = 0 To (gvReq.Rows.Count) - 1
If i = c - 1 Then
Response.Write(LCase(gvReq.Columns(i).ToString))
Else
Response.Write(LCase(gvReq.Columns(i).ToString & ","))
End If
Next

c = CInt(gvDetalles.Columns.Count)
For i = 0 To (gvDetalles.Rows.Count) - 1
If i = c - 1 Then
Response.Write(LCase(gvDetalles.Columns(i).ToStrin g))
Else
Response.Write(LCase(gvDetalles.Columns(i).ToStrin g & ","))
End If
Next

'AQUI CIERRO MI POPUP, PERO A ESTA PARTE YA NO LLEGA :'(
Dim strScript As String = "<script> window.self.close();"
strScript += "</" + "script>"
RegisterClientScriptBlock("Name", strScript)

Espero haberme explicado y que alguien pueda ayudarme ... thanks

Re: Exportar de ASP a EXCEL
 

<%@ Language=VBScript %>
<%
' export_to_excel.asp
' [email protected]
'
' Como usarlo:
' En la página ASP desde donde deseas exportar
' haces un link hacia esta página
' usas session("sqlquery") Query de la B.D.
' session("XLSFilename") Nombre de archivo XLS

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open("dsn=TU_DSN;uid=sa;pwd=tu_pwd;")
set rs = CreateObject("ADODB.Recordset")

sqltxt=session("sqlquery") 'Es la query de la BD.

rs.Open sqltxt, cn

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename="&session("XLSFilename")&".xls"
if Rs.eof <> true then
response.write "<table border=1>"

select case session("XLSFilename")
case "customreport"
response.write "<tr>"
For i = 0 to rs.fields.count-1
response.write "<td>"& Rs.fields(i).name & "</td>"
next

response.write "</tr>"
response.write "<tr>"
For i = 0 to rs.fields.count-1
response.write "<td>"& Rs.fields(i) & "</td>"
next

response.write "</tr>"
end select

%>

Re: Exportar de ASP a EXCEL
 

tengo un pequeño problema:
tengo el siguiente codigo

Megustaria que en esta parte
PathXLS = Server.MapPath("Ejercicio3.xls")
el nombre "Ejercicio3" fuera dinamico o lo pueda remplazar por el que yo quiera.
Como lo ago????

Re: Exportar de ASP a EXCEL
 

una idea

dynamicname="Ejercicio"&year(now)&"-"&month(now)&"-"&day(now)&".xls"
PathXLS = Server.MapPath(dynamicname)

en ese sentido se crearia el archivo con la fecha actual, puedes asignarle las variables como necesites ya seria tu creatividad en ese sentido

suerte:arriba:

Re: Exportar de ASP a EXCEL
 

mira yo estoy en lo mismo pero me aroja el siguiente erro?


este es el cod:

si me pueden ayudar gracias

Re: Exportar de ASP a EXCEL
 

:pensando:, tengo duda en esta parte del SQL string

from crzdeudas a,crzproduc b

no deberian ser

from crzdeudas as a,crzproduc as b w

verifica :pensando:

y cual era la linea que te arrojaba el error

Re: Exportar de ASP a EXCEL
 

Prruff, y pensar que yo estaba tratando de concadenar el .xls en el Sever.MapPath, no pense que fuera tan sencillo, muchas gracias.

Re: Exportar de ASP a EXCEL
 

eso tambien funciona

Re: Exportar de ASP a EXCEL
 

eso tambien funciona sin el as que tu pones

Re: Exportar de ASP a EXCEL
 

Hola.
Alguien pidio como incluir una imagen en Excel, aqui esta el codigo en ASP NET 2.0:

Public Function HTML() As String
Dim page1 As New Page()

page1.EnableViewState = False

Dim builder1 As New System.Text.StringBuilder()
Dim writer1 As New System.IO.StringWriter(builder1)
Dim writer2 As New HtmlTextWriter(writer1)

writer2.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr(10) & "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr(10) & "<head>" & Chr(10) & "<title>Datos</title>" & Chr(10) & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />" & Chr(10) & "<style>" & Chr(10) & "</style>" & Chr(10) & "</head>" & Chr(10) & "<body>" & Chr(10) & "")

writer2.Write("<img src=http://enlace/a/Imagen.gif>")

writer2.Write("<table><tr><td></td><td></td><td></td><td></td><td><font face=Arial size=5><center>Título Principal</center></font></td></tr></table><br>")

writer2.Write("<table>" & Chr(10) & "<tr>" & Chr(10) & "<td></td><td class=TD width=35%><b>Fecha :</b></td><td width=65% align=left>" + "20/04/2008" + "</td>" & Chr(10) & "</tr>" & Chr(10) & "<tr>" & Chr(10) & "<td></td><td class=TD><b>Gerencia:</b></td><td>" + "gggg" + "</td>" & Chr(10) & "</tr>" & Chr(10) & "</table>" & Chr(10) & "<br><br>")

page1.DesignerInitialize()
page1.RenderControl(writer2)
writer2.Write("" & Chr(10) & "</body>" & Chr(10) & "</html>")

page1.Dispose()
page1 = Nothing

Return builder1.ToString()
End Function

Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment;filename=NombreArchivo.xls")
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.[Default]
Response.Write(HTML())
'Llamada al procedimiento HTML
Response.[End]()

End Sub

Ahora quisiera saber si alguien puede ayudarme con lo siguiente, quiero exportar un archivo a Excel, pero con varias hojas. Mediante este sistema no lo he conseguido, lo logro exportandolo como XML, pero para leerlo en Excel el cliente debe tener Excel 2003 o superior, el Excel 2000 no los lee.
Tampoco me sirve instanciando objetos de Excel con:
Dim oXL As Excel.Application
Dim oWB As Excel._Workbook
Dim oSheet As Excel._Worksheet
Dim oRng As Excel.Range
oXL = New Excel.Application()
....

Porque el servidor no permite instanciar objetos.

Si alguien tiene alguna idea que me lo haga llegar por favor.

Saludos.

Respuesta: Exportar de ASP a EXCEL
 

hola

quisiera que me ayudaras con un problema que tengo:

necesito exportar las tablas de mi pagina web a excel la pagina esta en asp quiero poner un boton que diga Excel que sirva para exportar los datos pero de verdad ignoro como hacerlo

Respuesta: Exportar de ASP a EXCEL
 

hola oye me puedes ayudar no se como exportar unas tablas a excel en que parte de la pagina pongo estas dos lineas? Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=Consulta.xls"

Respuesta: Exportar de ASP a EXCEL
 

Hola que tal, Pachanguero yo utilice el codigo que posteaste pero no agrega nada el archivo en excel, lo abre en blanco, me podrias ayudar con eso por favor.

Soy nuevo en ASP y la verdad esque eh estado buscando mucho sobre como exportar un dato a excel, te lo agradeceria mucho. Saludos !!

Respuesta: Exportar de ASP a EXCEL
 

Que office estas ocupando???? quisas eso influya.

Sino te resulta con el office que tienes tendras que ocupar otro codigo para el office que estas ocupando

estos codigos funcionan solamente hatsa el office 2003, con el 2007 hay que ocupar unos xml y otras vainas.

Respuesta: Exportar de ASP a EXCEL
 

Buenos dias, tengo un archico .txt en donde esta la consulta sql y con la linena de codigo <% Response.ContentType = "application/msword"%> en la pagina asp que me envia al txt me funciona bien, pero quisiera saber como hago para graficar esa consulta que tengo en el .txt para que me salga en el word

Respuesta: Exportar de ASP a EXCEL
 

Deberías de abrir un nuevo tema para plantear tu problema en lugar de reabrir temas antiguos

Este tema se cierra