![]() |
he entrado a este faq ya q solo asi creo me pueden ayudar y porfa no me esten diciendo "ya he hemos hablado de eso" porque me he recorri todo lo referido a excel y no he encontrado algo a mi problema,si me pueden ayudar gustoso se los agradeceria: cuando quiero guardar un archivo excel en el cliente lo hago con ello: <% Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "content-disposition", "inline; filename=Consulta Especifica.xls%> pero mi problema es que cuando me genera el excel,el fonode este esta blanco es decir nose lo cuadros de fondos como cuando se carga directamente el excel ??plop?? nose si faltara alguna propiedad para que saliera esos cuadros y no me salga el fondo blanco ademas si es q es posible cambiar de tamaño de letra a la hora qe pinta el excel ya q siempre me guarda con letra tamañao 10 y quisera algo mas puqeño por decir 7 Gracias y disculpen las molestias,e este foro siempre he recibido ayuda:) |
Loquillo7, a mi me pasa exactamente lo mismo me sale completamente en blanco el código, la única solución que se me ocurre (aunque estoy seguro de que no es la más correcta) es en la <table poner border=1 Así te salen todas las celdas con su recuadro y queda más presentable que todo en blanco. Para Moron.- A mí también me daba ese error, lo corregí (hoy mismo) poniendo attachment; en vez de inline; Saludos |
DE Excel a SQL <link href="estilo.css" rel="stylesheet" type="text/css"> <body bgcolor="#EBEBEB" leftmargin="0" topmargin="0"> <!--#include file="Connections/Cn.asp" --> <% Valor=Request.form("Archivo") %> <% Dim rd_cot Dim rd_cot_numRows Path=Server.MapPath("../fotos/"&Valor&"") Set rd_cot = Server.CreateObject("ADODB.Recordset") rd_cot.ActiveConnection = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path rd_cot.Source = "Select * From Productos" rd_cot.CursorType = 0 rd_cot.CursorLocation = 2 rd_cot.LockType = 1 rd_cot.Open() rd_cot_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rd_cot_numRows = rd_cot_numRows + Repeat1__numRows %> <Center class="red_bold_14px"><br>HOJA DE CALCULO - ONE SOURCE<br></Center> <br> <table class="Tabla_marco" align="center"> <% Response.Write "<th height='25' bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(0).Name & "</center></font></th>" & vbCrLf Response.Write "<th bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(1).Name & "</center></font></th>" & vbCrLf Response.Write "<th bgcolor='#FF0000'><left><font color='#FFFFFF'>" & rd_cot.Fields.Item(2).Name & "</left></font></th>" & vbCrLf Response.Write "<th bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(3).Name & "</center></font></th>" & vbCrLf Response.Write "<th bgcolor='#FF0000'><Left><font color='#FFFFFF'>" & rd_cot.Fields.Item(4).Name & "</left></font></th>" & vbCrLf Response.Write "<th bgcolor='#FF0000'><Left><font color='#FFFFFF'>" & rd_cot.Fields.Item(5).Name & "</left></font></th>" & vbCrLf %> <% While ((Repeat1__numRows <> 0) AND (NOT rd_cot.EOF)) Response.Write "<tr >" & vbCrLf Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(0) &"</font></center></td>" Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(1) &"</center></font></td>" Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(2) &"</center></font></td>" Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(3) &"</center></font></td>" Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(4) &"</center></font></td>" Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(5) &"</center></font></td>" Response.Write "</tr>" & vbCrLf Set rd_t = Server.CreateObject("ADODB.Recordset") rd_t.ActiveConnection = MM_Cn_STRING rd_t.Source="Select count(CODE) As Existe from Productos where code='" &rd_cot.Fields.Item(0)& "'" rd_t.CursorType = 0 rd_t.CursorLocation = 2 rd_t.LockType = 1 rd_t.Open() rd_t_numRows = 0 if (rd_t.Fields.Item("existe").Value)="1" then sql="UPDATE Productos SET DESCRIPTION='"&rd_cot.Fields.Item(1)&"' ,RETAIL ='"&rd_cot.Fields.Item(2)&"' ,WHOLESALE ='"&rd_cot.Fields.Item(3)&"' , MANUFACTURER ='"&rd_cot.Fields.Item(4)&"' ,KEYWORDS ='"&rd_cot.Fields.Item(5)&"' where CODE= '"&rd_cot.Fields.Item(0)&"' " Set insCmd = Server.CreateObject("ADODB.Command") insCmd.ActiveConnection = MM_cn_STRING insCmd.CommandText = sql insCmd.Execute insCmd.ActiveConnection.Close else Estado="Y" sql="Insert into Productos(CODE,DESCRIPTION,RETAIL,WHOLESALE,MANUFA CTURER,KEYWORDS,ESTADO) values ('"&rd_cot.Fields.Item(0)&"','"&rd_cot.Fields.Item (1)&"','"&rd_cot.Fields.Item(2)&"','"&rd_cot.Field s.Item(3)&"','"&rd_cot.Fields.Item(4)&"','"&rd_cot .Fields.Item(5)&"','"&Estado&"')" Set insCmd = Server.CreateObject("ADODB.Command") insCmd.ActiveConnection = MM_cn_STRING insCmd.CommandText = sql insCmd.Execute insCmd.ActiveConnection.Close end if Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rd_cot.MoveNext() Wend Response.Write "</table>" %> <% rd_cot.Close() Set rd_cot = Nothing %> Saludos...! |
Loquillo y Brewster, eso os pasa porque el método usado para crear el archivo excel es rápido y malo. En realidad, por lo que a mí me ha parecido ver, excel únicamente interpreta una hoja html que le llega, pero sin actuar con ella realmente como lo haría con una hoja de excel. ¿La solución? No usar ese método. Hay otros que te crean la hoja de excel desde el servidor, y que sí que son hojas de excel de verdad (pegas: que son algo más laboriosos, y que algunos no permiten introducir formato a las letras). |
pachangero tu ejemplo me sirvio y lo estoy utilizando pero ahora me encontre con el problema que tengo unas imagenes y tambien quiero llevarlas al excel, ¿Haz hecho pruebas exportando las imagenes? Salu2 |
como asociar la exportacion a un boton Buenas, soy nuevo en esto y estuve mirando todo lo que escribieron. Me funciona barbaro el ejemplo de la generacion del excel, pero tengo una duda de como hacer, para que primero me muestre la consulta en una tabla en el explorador (como si fuera HTML) y luego, apretando un boton s epueda generar automaticamente el Excel. Con el codigo completo ese me genera automaticamente el excel, sin antes mostrarme los datos en la pagina. Se puede acer esto??? Gracias |
deberias guardar la consulta (por ejemplo en un hidden) y al apretar al botón, mandar un submit a una pagina que te vuelva a hacer la consulta y te muestre el contenido en excel. comprende? saludos |
Re: Exportar de ASP a EXCEL me funciona el codigo de word pero el para exportar a excel solo me muestra las tablas pero sin ningun dato.....:'( :'( :'( :'( |
Re: Exportar de ASP a EXCEL Cita:
Lo unico que me mostraba era que no encontraba la foto, por mas que le busque no logre hacerlo funcionar. Si alguien tiene alguna idea se lo agradeceremos. :si: |
Re: Exportar de ASP a EXCEL Cita:
|
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 Código:
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? Cita:
Código PHP: 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 Cita:
|
Re: Exportar de ASP a EXCEL eso tambien funciona |
Re: Exportar de ASP a EXCEL Cita:
|
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 |
La zona horaria es GMT -6. Ahora son las 05:49. |
Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2025, Jelsoft Enterprises Ltd.