asp + excel

Hola lo puede hacer asi

en tu asp puede armar una tabla

Response.ContentType = "application/vnd.ms-excel"
Response.Write "<table>" & Chr(13)
Response.Write "<tr>" & Chr(13)
Response.Write "<td>" &
rs2("nombre_campo")
& "</td>" & Chr(13)
Response.Write "</tr>" & Chr(13)
Response.Write "</table>" & Chr(13)

en vez de utilizar rs2.fiels quita ese for y usa unicamente el do

do wihile not rs2.of
rs2("nombre_campo")
rs2.movenext
loop
rs2.close

Esperoque te sirva,
Saludos
Giox

"david" escribió en el mensaje
news:0a6601c535fb$72ca4850$
Hola,

Estoy en un lio, quiero bajar los datos de una tabla sql-
server a un archivo excel (archivo.xls), todo me funciona
bien , pero el echo es que me carga TODOS los datos de la
tabla en cuestión.

El problema es ¿Como acedo a el campo específico de la
tabla y lo copio al archivo excel?

El codigo es el sgte:

' Recorro todo el recordset recuperando sus valores y
escribiéndolos en el archivo Excel
rs2.MoveFirst
contador=0
Do while Not rs2.EOF
For each x in rs2.fields
contador = contador + 1
'Asi escribo en la "fila" del archivo.xls
todos los campos (su contenido) de rs2
Fila_excel = Fila_excel & x.value & chr(9)
Next
Arch_Excel.writeline Fila_excel
rs2.MoveNext
Loop


Quizás la solución esta en conocer cual es el método a
usar en vez de ".value" ??? o el For recorrer rs2.xxxxx ???

No tengo problema en "mostrar por pantalla" los campos (rs2
(numero))que yo quiera, eso lo hago bién, el echo,
insisto, es al GRABAR.

Eso esta bién, pero es para MOSTRAR una tabla de excel en
la pantalla y lo que quiero es Grabar a un archivo de
excel!!!

Gracias de todas maneras ..

Cualquier ayuda es bienvenida!!!

Hola lo puede hacer asi

en tu asp puede armar una tabla

Response.ContentType = "application/vnd.ms-excel"
Response.Write "<table>" & Chr(13)
Response.Write "<tr>" & Chr(13)
Response.Write "<td>" &
rs2("nombre_campo")
& "</td>" & Chr(13)
Response.Write "</tr>" & Chr(13)
Response.Write "</table>" & Chr(13)

en vez de utilizar rs2.fiels quita ese for y usa

unicamente el do

do wihile not rs2.of
rs2("nombre_campo")
rs2.movenext
loop
rs2.close

Esperoque te sirva,
Saludos
Giox

pues en vez de dar response.write agreguelo el resultado a una variable
cree un archivo .xls y escriba archivo.write
y listo esa ya le debe funcionar


"david" escribió en el mensaje
news:0ae401c5360a$0591a0d0$
Eso esta bién, pero es para MOSTRAR una tabla de excel en
la pantalla y lo que quiero es Grabar a un archivo de
excel!!!

Gracias de todas maneras ..

Cualquier ayuda es bienvenida!!!

Hola lo puede hacer asi

en tu asp puede armar una tabla

Response.ContentType = "application/vnd.ms-excel"
Response.Write "<table>" & Chr(13)
Response.Write "<tr>" & Chr(13)
Response.Write "<td>" &
rs2("nombre_campo")
& "</td>" & Chr(13)
Response.Write "</tr>" & Chr(13)
Response.Write "</table>" & Chr(13)

en vez de utilizar rs2.fiels quita ese for y usa

unicamente el do

do wihile not rs2.of
rs2("nombre_campo")
rs2.movenext
loop
rs2.close

Esperoque te sirva,
Saludos
Giox

Ok con tu idea, pero al final se deben acomodar los datos
al abrir el archivo excel es decir, ponerles delimitadores.
Lo ideal es que quede cada dato en una celda.

Tú sabes el usuario, a veces no quiere darse ningún
trabajo.

Que se puede hacer???

<%
dim NomeFile
NomeFile = "ListaParaExcel_"& Year(date)&"-"& Month(date)&"-"& Day(date)
&".xls"
Response.AddHeader "Content-Disposition", "attachment; filename=" & NomeFile
Response.ContentType = "application/vnd.ms-excel"
%>

<table>
<tr>
<th nowrap>Titulo 1</th>
<th nowrap>Titulo 2</th>
<th nowrap>Titulo 3</th>
</tr>
<%
while not rs.eof
'ciclo para ver los datos
<tr>
<td align="left"><%=RS("Campo1")%></td>
<td align="center"><%=RS("Campo2")%></td>
<td align="right"><%=RS("Campo3")%></td>
</tr><%
'fin ciclo para ver datos
rs.movenext
wend
rs.close
set rs = nothing%>
</table>


Nuno Santos
nunos7[REMOVER]@hotmail.com

"david" wrote in message
news:046801c53641$7c8d5b20$
Ok con tu idea, pero al final se deben acomodar los datos
al abrir el archivo excel es decir, ponerles delimitadores.
Lo ideal es que quede cada dato en una celda.

Tú sabes el usuario, a veces no quiere darse ningún
trabajo.

Que se puede hacer???