Conheça o Plugfeed | » Início » Programação » ASP » Gerar Planilha Excel
Conheça o Plugfeed | » Início » Programação » ASP » Gerar Planilha Excel -->
 
Avaliação: | Publicado em: 22/06/2007
Gerar Planilha Excel
Alexandre de Luccia Analista e Desenvolvedor de Sistemas. Cursando Análise e Desenvolvimento de Sistemas no IBTA
Gerar Planilha Excel

Em negrito as variaveis para serem alteradas de acordo com seu banco de dados e com o nome do arquivo.

<%
'Data formato Brasileiro
Session.LCID = 1046

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

'Nome do Arquivo
nmRelatorio = "NomeArquivo-"&replace(date(),"/","-")
Response.AddHeader "content-disposition","attachment; filename="&nmRelatorio
set objconn=server.createobject("adodb.connection")

'Caminho Banco de Dados
connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\CaminhoSeuBancoDeDados.mdb"

objconn.Open connpath
set objrs=objconn.execute("Select * from SuaTabela")
%>
<TABLE BORDER=1>
<TR>
<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to objrs.fields.count - 1
%>
<TD><% = objrs(i).name %></TD>
<% next %>
</TR>
<%
'Percorre cada linha e exibe cada campo da tabela
while not objrs.eof
%>
<TR>
<% For i = 0 to objrs.fields.count - 1
%>
<TD VALIGN=TOP><% = objrs(i) %></TD>
<% Next %>
</TR>
<%
objrs.MoveNext
wend
objrs.Close
objconn.close
%>
</TABLE>

<%
'Data formato Brasileiro
Session.LCID = 1046

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

'Nome do Arquivo
nmRelatorio = "NomeArquivo-"&replace(date(),"/","-")
Response.AddHeader "content-disposition","attachment; filename="&nmRelatorio
set objconn=server.createobject("adodb.connection")

'Caminho Banco de Dados
connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\CaminhoSeuBancoDeDados.mdb"

objconn.Open connpath
set objrs=objconn.execute("Select * from SuaTabela")
%>

Bom pessoal, por enquanto é isso.

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!


Alexandre de Luccia


Alexandre, parabéns pelos exemplos.
MAs comigo, tem vezes q no manu Arquivo do IE não deixa salvar como Excel outras vezes sim. Vc saberia o pq?
Muito obrigado.
Alexandre de Luccia <alexandre.luccia@gmail.com>
Entrei em contato com vocêpor e-mail.
Achei muito bom o que voces explicam...mas gostaria de daber fazer na EXCEL uma planilha de Controle de Serviços, sou tecnico de informática e tenho dificuldade de controlar os seviços feitos e quem me deve.
Como voces podem me ajudar ?
Atenciosamente
jpaivaneto@oi.com.br
RUDIMAR FREITAG <rudimarsexta@terra.com.br>
Gostei muito, eu gostaria de agradecer...muito legal.
Você por acaso tem algum newsleter com html com imagens?
se tiver...pode me conseguir?

Abraços
A solução que faltava!!
muito bom!








Um produto Detetive.net