Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

natalia

Gerar arquivo xls

Por , em ASP Clássico

Recommended Posts

natalia    0

natalia
Postado

Oi pessoal, estou usando este script para gerar um arquivo xls. Está funcionando, porém alguns campos como o do cnpj, estão com uns caracteres estranhos. Como faço para arrumar isso?

 

<% Call Open_cn %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="application/vnd.ms-excel;charset=iso-8859-1">
</head>

<% 

strSel = " SELECT * FROM Empresa WHERE empTipo = 'R' ORDER By empRazao "
Set rsSel = Conexao.Execute(strSel)
If Not rsSel.EOF Then

Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition","attachment;filename=Relatorio.xls" 

%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr> 
	<td class="Normal"><font color="#000000">Razao</font></td>
	<td class="Normal"><font color="#000000">Fantasia</font></td>
	<td class="Normal"><font color="#000000">Cnpj</font></td>
  </tr>
  <% While Not rsSel.EOF %>
  <tr> 
	<td class="Normal"><font color="#000000"><%=rsSel("empRazao")%></font></td>
	<td class="Normal"><font color="#000000"><%=rsSel("empFantasia")%></font></td>
	<td class="Normal"><font color="#000000"><%=rsSel("empCnpj")%></font></td>
  </tr>
  <%
  rsSel.MoveNext
  Wend
End If 
rsSel.Close
Set rsSel = Nothing 
%>
</table>
</body>
</html>
<% Call Close_cn %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Quando você aponta o destino para o XLS, o próprio Excel tenta decifrar que tipo de dados cada célula possui.

Portanto, para evitar isso, coloque um espaço antes do campo, mas utilizando caracter em html " "

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito