Gerar Planilha Excel

Gerando planilha excel com data e nome pré-estabelecido de forma rápida e eficiente.

Por | @oficinadanet Programação
Muito legal ter onde postar as principais dúvidas do cotidiano, vou logo de cara mostrar que em minhas colunas vou abordar assuntos rápidos e específicos da linguagem, mostrar os principais componentes, rotinas, conexões e etc de forma simples.

Espero que seja de grande utilidade a todos e que aproveitem de verdade o espaço.

Na minha primeira coluna vou mostrar como gerar um Excel simples sem perder muito tempo usando componentes de gráficos, aquele relatório que seu chefe pede todo santo dia e acaba atrapalhando seu processo de criação.

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")
%>


<%
'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) %>



Bom pessoal, por enquanto é isso.

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

Abraços!


Alexandre de Luccia

Mais sobre:
Share Tweet
Recomendado
Comentários
Carregar comentários
Destaquesver tudo