Gerar Planilha Excel, por Alexandre de Luccia

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

FRancisco <pako_br@yahoo.com.br>

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.

José <jpaivaneto@oi.com.br>

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

Gabriel <gabriel@bulbo.info>

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