Foros del web, para los que viven de bits

Namankay · 17-jul-2007, 12:44

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

Sidious · 09-ago-2007, 15:29

<%@ Language=VBScript %>
<%
' export_to_excel.asp
' ronald.avendano@gmail.com
'
' 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

%>

karmish · 03-oct-2007, 14:17

tengo un pequeño problema:
tengo el siguiente codigo

Código:

' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).
PathMDB        = Server.MapPath("Ejercicio3.mdb")
PathXLS        = Server.MapPath("Ejercicio3.xls")
FinLinea       = ""

' Creo los objetos que utilizaremos, serán de los tipos FSO, TextStream y Connection
Set fso        = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
Set oConn      = Server.CreateObject("ADODB.Connection")

' Abro la conexión, ejecuto la consulta y guardo los resultados en el recordset creado
oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathMDB
Set rs = oConn.Execute("SELECT Oficina, Nombre, Total FROM Feriado")

' Recorro todo el recordset recuperando sus valores y escribiéndolos en el archivo Excel
Do while Not rs.EOF
	FinLinea = ""
	For each x in rs.fields
		FinLinea = FinLinea & x.value & chr(9)
	Next
	Arch_Excel.writeline FinLinea
rs.MoveNext
Loop

rs.MoveFirst

'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<table border='1'>"
Response.Write "<th>" & rs.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rs.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rs.Fields.Item(2).Name & "</th>" & vbCrLf

'Y por último, el cuerpo de los datos
Do While Not rs.EOF
	Response.Write "<tr>" & vbCrLf
	Response.write "<td>" & rs(0) & "</td>"
	Response.write "<td>" & rs(1) & "</td>"
	Response.write "<td>" & rs(2) & "</td>"
	Response.Write "</tr>" & vbCrLf
	rs.MoveNext
Loop

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????

Shiryu_Libra · 03-oct-2007, 14:32

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

a83 · 03-oct-2007, 19:05

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

Cita:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0409)
Constante de cadena sin terminar
/geochilesa/enrique/informe_enrriques.asp, línea 15, columna 213
sql3 ="select numope,cicloasi,cicloreb,estcob,rutcli,converT(num eric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i'

este es el cod:

Código PHP:


			
<%

Response.ContentType = "application/vnd.ms-excel"



Response.Buffer = True 

%>

<html>

<%

Dim Conex

    Set Conex = Server.CreateObject ("ADODB.Connection")

    Conex.Open "driver={SQL Server};server=********; database=geocob; uid=*******;pwd=*******" 

    Set RS = Server.CreateObject ("ADODB.RecordSet")

    Set RS2 = Server.CreateObject ("ADODB.RecordSet")



sql3 ="select numope,cicloasi,cicloreb,estcob,rutcli,converT(numeric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i'

and a.cedente=b.cedente and a.producto=b.producto"

set rs=conex.execute(sql)

si me pueden ayudar gracias

Shiryu_Libra · 03-oct-2007, 23:01

, 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

y cual era la linea que te arrojaba el error

karmish · 04-oct-2007, 07:39

Cita:

Iniciado por Shiryu_Libra

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

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

azche_1 · 06-feb-2008, 11:09

eso tambien funciona

azche_1 · 06-feb-2008, 11:09

Cita:

Iniciado por Shiryu_Libra

, 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

y cual era la linea que te arrojaba el error

eso tambien funciona sin el as que tu pones

lasanz · 25-abr-2008, 04:05

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.

17-jul-2007, 12:44	#61 (permalink)
Namankay Fecha de Ingreso: julio-2007 Mensajes: 1	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

09-ago-2007, 15:29	#62 (permalink)
Sidious Fecha de Ingreso: agosto-2007 Mensajes: 1	Re: Exportar de ASP a EXCEL <%@ Language=VBScript %> <% ' export_to_excel.asp ' ronald.avendano@gmail.com ' ' 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 %>

03-oct-2007, 14:32	#64 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.597	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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

03-oct-2007, 19:05	#65 (permalink)
a83 Fecha de Ingreso: noviembre-2005 Mensajes: 315	Re: Exportar de ASP a EXCEL mira yo estoy en lo mismo pero me aroja el siguiente erro? Cita: Tipo de error: Error de compilación de Microsoft VBScript (0x800A0409) Constante de cadena sin terminar /geochilesa/enrique/informe_enrriques.asp, línea 15, columna 213 sql3 ="select numope,cicloasi,cicloreb,estcob,rutcli,converT(num eric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i' este es el cod: Código PHP: <% Response.ContentType = "application/vnd.ms-excel" Response.Buffer = True %> <html> <% Dim Conex Set Conex = Server.CreateObject ("ADODB.Connection") Conex.Open "driver={SQL Server};server=******; database=geocob; uid=***;pwd=*****" Set RS = Server.CreateObject ("ADODB.RecordSet") Set RS2 = Server.CreateObject ("ADODB.RecordSet") sql3 ="select numope,cicloasi,cicloreb,estcob,rutcli,converT(numeric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i' and a.cedente=b.cedente and a.producto=b.producto" set rs=conex.execute(sql) si me pueden ayudar gracias

03-oct-2007, 23:01	#66 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.597	Re: Exportar de ASP a EXCEL , 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 y cual era la linea que te arrojaba el error __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

04-oct-2007, 07:39	#67 (permalink)
karmish Fecha de Ingreso: mayo-2006 Mensajes: 219	Re: Exportar de ASP a EXCEL Cita: Iniciado por Shiryu_Libra 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 Prruff, y pensar que yo estaba tratando de concadenar el .xls en el Sever.MapPath, no pense que fuera tan sencillo, muchas gracias. __________________ Las tineblas en el corazon http://s14.bitefight.es/c.php?uid=57623

06-feb-2008, 11:09	#68 (permalink)
azche_1 Fecha de Ingreso: diciembre-2007 Mensajes: 4	Re: Exportar de ASP a EXCEL eso tambien funciona

06-feb-2008, 11:09	#69 (permalink)
azche_1 Fecha de Ingreso: diciembre-2007 Mensajes: 4	Re: Exportar de ASP a EXCEL Cita: Iniciado por Shiryu_Libra , 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 y cual era la linea que te arrojaba el error eso tambien funciona sin el as que tu pones

25-abr-2008, 04:05	#70 (permalink)
lasanz Fecha de Ingreso: abril-2008 Mensajes: 1	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.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado