Categorias

Exportar Dados para o Excel com ASP

Imagem do avatar de
Publicado por Rodrigo Araujo

Exportar dados para o Excel é muito simples.

As vantagens de você gerar uma planilha Excel é poder usar os recursos de cálculos e os recursos gráficos para gerar gráficos que o Excel possui.

Coloque este código no início da página que apresenta os dados e o resultado da página será “impresso” na planilha em Excel:

Response.ContentType=”application/vnd.ms-excel”
response.AddHeader “content-disposition”, “inline; filename=arquivo.xls”

Você poderá depois colocar um botão de rádio para o usuário clicar se deseja o resultado na tela ou no arquivo *.xls.

<%
Response.ContentType = "application/vnd.ms-excel"

set objconn=server.createobject("adodb.connection")

connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:banco.mdb"
objconn.Open connpath

set objrs=objconn.execute("select * from produtos where id < 20 ")

%>

<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to objrs.fields.count - 1
%>

<% next %>

<%

'Percorre cada linha e exibe cada campo da tabela

while not objrs.eof
%>

<% For i = 0 to objrs.fields.count - 1
%>

<% Next %>

<%
objrs.MoveNext

wend

objrs.Close
objconn.close
%>



<% = objrs(i).name %>
<% = objrs(i) %>
Tags: