Problemas con exportacion de asp a excel

07/03/2007 - 21:03 por Boris | Informe spam
Buenas tardes:

Me pueden ayudar, tengo un boton donde envio información a excel me ha
funcionado muy bien hasta que traspase parametros (fechas).
solamente me da problemas cuando paso 2 fechas, aqui el ejemplo.



''' <%if Request.form("inicial") <> "" then%>
''' <INPUT id=cmdPrint name=cmdPrint type=button value="Exporta
Excel" onClick "parent.location='http://192.0.0.168/Planta/PExcel.asp?ini=<%Response.Write(Request.form("inicial"))%>&fin=<%Response.Write(Request.form("final"))%>'">
''' <%end if%>

cuando uso estas lineas de comando, me dice que no puede abrir archivo excel
????, pero cuando le quito una de las 2 fechas si abre el excel, me pueden
ayudar, no he podido encontrar solución en los foros del web.


Gracias

Boris

Preguntas similare

Leer las respuestas

#1 Matias Iacono
08/03/2007 - 13:13 | Informe spam
Es muy dificil poder ayudarte sin saber que hace la pagina:

http://192.0.0.168/Planta/PExcel.asp

Esta es la que genera el archivo de excel, asi que el problema esta alli.

Saludos.

Microsoft MVP
Orador Regional INETA


"Boris" wrote:

Buenas tardes:

Me pueden ayudar, tengo un boton donde envio información a excel me ha
funcionado muy bien hasta que traspase parametros (fechas).
solamente me da problemas cuando paso 2 fechas, aqui el ejemplo.



''' <%if Request.form("inicial") <> "" then%>
''' <INPUT id=cmdPrint name=cmdPrint type=button value="Exporta
Excel" onClick> "parent.location='http://192.0.0.168/Planta/PExcel.asp?ini=<%Response.Write(Request.form("inicial"))%>&fin=<%Response.Write(Request.form("final"))%>'">
''' <%end if%>

cuando uso estas lineas de comando, me dice que no puede abrir archivo excel
????, pero cuando le quito una de las 2 fechas si abre el excel, me pueden
ayudar, no he podido encontrar solución en los foros del web.


Gracias

Boris




Respuesta Responder a este mensaje
#2 Boris
08/03/2007 - 13:48 | Informe spam
Matias
El boton me debería abrir el archivo PExcel.asp, que contiene el siguiente
codigo:

<HTML>
<HEAD>
<%
Response.Clear()
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=planilla.xls"
Response.Charset = "UTF-8"
%>
</HEAD>
<body>
<%
' Declaración de variables
Dim objConnection
Dim objRecordset
Dim sql
sql = "SELECT * FROM PrMes WHERE Fecha >= '" & Request.querystring("ini")
& "' and Fecha <= '" & Request.querystring("fin") & "'"

' Creación de objetos
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")

' Abrir conexión y ejecutar la consulta
objConnection.Open "Driver={SQL
Server};server2.0.0.168;database=Producc;uid=sa;pwd=sa"
objRecordset.Open sql, objConnection
%>

<table align=center width="1200" border="1" cellspacing="0" cellpadding="0"
bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#ffffff" style="WIDTH: 1200px;
HEIGHT: 25px">
<tr style="BACKGROUND-COLOR: gainsboro">
<td align="middle" width="270"> <b><font face="Arial" size="1"
color=darkblue>Producto</font></b></td>
<td align="middle" width="150"><b><font face="Arial" size="1"
color=darkblue>Conservacion</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Calidad</font></b></td>
<td align="middle" width="70"><b><font face="Arial" size="1"
color=darkblue>Calibre</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>U/M</font></b></td>
<td align="middle" width="200"><b><font face="Arial" size="1"
color=darkblue>Envase</font></b></td>
<td align="middle" width="100"><b><font face="Arial" size="1"
color=darkblue>Dia Ingreso</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
</tr>
<%
Do While Not ObjRecordset.EOF
%>

<!-- Crear cada entrada en la lista -->
<tr>
<td> <%=objRecordset("Producto") %> </td>
<td> <%=objRecordset("Conservacion") %> </td>
<td> <%=objRecordset("Calidad") %> </td>
<td> <%=objRecordset("Calibre") %>&nbsp; </td>
<td> <%=objRecordset("UM") %> </td>
<td> <%=objRecordset("Envase") %> </td>
<td> <%=objRecordset("Fecha") %> </td>
<td> <%=FormatNumber (objRecordset("CI"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KI"),0) %> </td>
<td> <%=FormatNumber (objRecordset("CS"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KS"),0) %> </td>
<td> <%=FormatNumber (objRecordset("CF"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KF"),0) %> </td>
</tr>

<%
objRecordset.MoveNext
Loop

objRecordset.Close
objConnection.Close
%>
</table>
</body>
</HTML>


"Matias Iacono" escribió en el
mensaje news:
Es muy dificil poder ayudarte sin saber que hace la pagina:

http://192.0.0.168/Planta/PExcel.asp

Esta es la que genera el archivo de excel, asi que el problema esta alli.

Saludos.

Microsoft MVP
Orador Regional INETA


"Boris" wrote:

Buenas tardes:

Me pueden ayudar, tengo un boton donde envio información a excel me ha
funcionado muy bien hasta que traspase parametros (fechas).
solamente me da problemas cuando paso 2 fechas, aqui el ejemplo.



''' <%if Request.form("inicial") <> "" then%>
''' <INPUT id=cmdPrint name=cmdPrint type=button value="Exporta
Excel" onClick>>
"parent.location='http://192.0.0.168/Planta/PExcel.asp?ini=<%Response.Write(Request.form("inicial"))%>&fin=<%Response.Write(Request.form("final"))%>'">
''' <%end if%>

cuando uso estas lineas de comando, me dice que no puede abrir archivo
excel
????, pero cuando le quito una de las 2 fechas si abre el excel, me
pueden
ayudar, no he podido encontrar solución en los foros del web.


Gracias

Boris




Respuesta Responder a este mensaje
#3 Boris
08/03/2007 - 15:34 | Informe spam
Matias:
Ya solucione mi drama, tenias razon el problema estaba en el código del asp
que llamaba, tenía un poblema en un registro de la tabla que no
correspondia.

Muchas Gracias
Boris

"Boris" escribió en el mensaje
news:ePE76$
Matias
El boton me debería abrir el archivo PExcel.asp, que contiene el siguiente
codigo:

<HTML>
<HEAD>
<%
Response.Clear()
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition",
"attachment;filename=planilla.xls"
Response.Charset = "UTF-8"
%>
</HEAD>
<body>
<%
' Declaración de variables
Dim objConnection
Dim objRecordset
Dim sql
sql = "SELECT * FROM PrMes WHERE Fecha >= '" & Request.querystring("ini")
& "' and Fecha <= '" & Request.querystring("fin") & "'"

' Creación de objetos
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")

' Abrir conexión y ejecutar la consulta
objConnection.Open "Driver={SQL
Server};server2.0.0.168;database=Producc;uid=sa;pwd=sa"
objRecordset.Open sql, objConnection
%>

<table align=center width="1200" border="1" cellspacing="0"
cellpadding="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#ffffff" style="WIDTH: 1200px;
HEIGHT: 25px">
<tr style="BACKGROUND-COLOR: gainsboro">
<td align="middle" width="270"> <b><font face="Arial" size="1"
color=darkblue>Producto</font></b></td>
<td align="middle" width="150"><b><font face="Arial" size="1"
color=darkblue>Conservacion</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Calidad</font></b></td>
<td align="middle" width="70"><b><font face="Arial" size="1"
color=darkblue>Calibre</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>U/M</font></b></td>
<td align="middle" width="200"><b><font face="Arial" size="1"
color=darkblue>Envase</font></b></td>
<td align="middle" width="100"><b><font face="Arial" size="1"
color=darkblue>Dia Ingreso</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>N° Cajas</font></b></td>
<td align="middle" width="50"><b><font face="Arial" size="1"
color=darkblue>Kilos</font></b></td>
</tr>
<%
Do While Not ObjRecordset.EOF
%>

<!-- Crear cada entrada en la lista -->
<tr>
<td> <%=objRecordset("Producto") %> </td>
<td> <%=objRecordset("Conservacion") %> </td>
<td> <%=objRecordset("Calidad") %> </td>
<td> <%=objRecordset("Calibre") %>&nbsp; </td>
<td> <%=objRecordset("UM") %> </td>
<td> <%=objRecordset("Envase") %> </td>
<td> <%=objRecordset("Fecha") %> </td>
<td> <%=FormatNumber (objRecordset("CI"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KI"),0) %> </td>
<td> <%=FormatNumber (objRecordset("CS"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KS"),0) %> </td>
<td> <%=FormatNumber (objRecordset("CF"),0) %> </td>
<td> <%=FormatNumber (objRecordset("KF"),0) %> </td>
</tr>

<%
objRecordset.MoveNext
Loop

objRecordset.Close
objConnection.Close
%>
</table>
</body>
</HTML>


"Matias Iacono" escribió en el
mensaje news:
Es muy dificil poder ayudarte sin saber que hace la pagina:

http://192.0.0.168/Planta/PExcel.asp

Esta es la que genera el archivo de excel, asi que el problema esta alli.

Saludos.

Microsoft MVP
Orador Regional INETA


"Boris" wrote:

Buenas tardes:

Me pueden ayudar, tengo un boton donde envio información a excel me ha
funcionado muy bien hasta que traspase parametros (fechas).
solamente me da problemas cuando paso 2 fechas, aqui el ejemplo.



''' <%if Request.form("inicial") <> "" then%>
''' <INPUT id=cmdPrint name=cmdPrint type=button value="Exporta
Excel" onClick>>>
"parent.location='http://192.0.0.168/Planta/PExcel.asp?ini=<%Response.Write(Request.form("inicial"))%>&fin=<%Response.Write(Request.form("final"))%>'">
''' <%end if%>

cuando uso estas lineas de comando, me dice que no puede abrir archivo
excel
????, pero cuando le quito una de las 2 fechas si abre el excel, me
pueden
ayudar, no he podido encontrar solución en los foros del web.


Gracias

Boris










email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida