Exportar de ASP a EXCEL

[Namankay]

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]

<%@ 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

%>

[karmish]

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]

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]

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

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]

, 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]

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]

eso tambien funciona

[azche_1]

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]

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.

[ireneo]

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

[ireneo]

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"

[alex_grullo]

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

[karmish]

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.

[lufetoma1]

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

[Myakire]

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

Este tema se cierra