Gerar tabela em Excel

[paulomayer 0]

Galera eu de novo...

 

Estou usando um script que funciona uma maravilha, ele pegar o banco de dados que eu quero, e gera um arquivo excel, que gravo na minha máquina e depois posso trabalhar ele.

 

Porém em alguns campos eu utilizo o "<br>" e na hora que transformo em Excel ele muda o <br> para "espaço", queria saber se tem como eu mandar gerar o arquivo excel e manter o "<br>", porque na verdade tem que ficar para poder trabalhar ele depois de outra maneira...

 

Vejam o código

 

<%
Response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=arquivo.xls"
%>

 

<%
Set Bdopp = Server.CreateObject("ADODB.Connection")
Bdopp.Open "driver={MySQL ODBC 3.51 Driver};server=servidor;uid=usuario;pwd=senha;database=banco"

Sqlopp = "SELECT * FROM bancoescolhido order by ordemescolhida"

Set Rsopp = Server.CreateObject("ADODB.Recordset")
Rsopp.Open Sqlopp, Bdopp, 3
%>
<table border="1">
<tr>
<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to rsopp.fields.count - 1
%>
<td><%=rsopp(i).name%></td>
<% next %>
</tr>
<%

'Percorre cada linha e exibe cada campo da tabela

while not rsopp.eof
%>
<tr>
<% For i = 0 to rsopp.fields.count - 1
%>
<td valign="top"><%=rsopp(i)%></td>
<% Next %>
</tr>
<%
rsopp.MoveNext

wend

rsopp.close
bdopp.close
set rsopp = nothing
set bdopp = nothing
%>
</TABLE>

 

Já tentei colocar:

 

meunome = Server.HTMLEncode(rsopp(i))

meunome = replace(meunome,chr(13), "<br>")

 

O problema é que como declarei que a página é em Excel e não em HTML, ele simplesmente não aceita estes comandos, dá um erro na hora de gerar o arquivo... se tirar isto ele gera direitinho para excel, mas substitui o <br> por espaço...

 

Alguma dica???

 

Valeu galera,

Abraços

[paulomayer 0]

Fala galera, consegui, vejam o que fiz abaixo... pode interessar para algúem...

 

meunome = rsopp(i)
if meunome <> "" then
meunome = Server.HTMLEncode(meunome)
end if

 

Estava dando erro porque ele localizava alguns registro nulos, e não conseguia entender o que era para fazer... feito um simples "if" e a coisa funcionou beleza, agora o que estiver com "<br>" no banco, no excel vai ficar igual...

 

Valeu galera

Abraços

[xanburzum 169]

tente assim:

 

 

replace(meunome,chr(13), vbCrLf)