Gerar Um Arquivo Do Excel

Webly: Gerar Um Arquivo Do Excel - Webly

Regras para postagem no fórum

É permitido postar livremente respostas com comentários, testes e avaliações dos scripts. Postagens contendo dúvidas sobre o script, deverão ser postadas no fórum principal de ASP.

IMPORTANTE: Todos os tutoriais postados neste fórum irão automaticamente para o portal Webly. Contribua você também e faça parte da equipe de colaboradores que fazem a evolução da web. Obrigado.

Página 1 de 1

Novo tópico
Responder

Gerar Um Arquivo Do Excel Avaliar tópico: 1 Votos

#1 David Cruvinel

Alguma Coisa!

Grupo: Coordenadores
Posts: 1976
Cadastrado: 25-agosto 06
Localização:Guaxupé - MG

Ícone Postou 01 novembro 2007 - 08:56

Bom, esses dias precisei gerar um arquivo XLS com meus registros do banco de dados, pode ser útil para mais gente, segue o código abaixo:

<%
' Cria um objeto recordset
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = "Select campo01,campo02,campo03 from tabela"
rs.Open sql, myconn

' Move para o primeiro registro
rs.MoveFirst

' define o nome do arquivo XLS a ser criado
arquivo_excel= "teste.xls"

' cria o arquivo file system object
set fso = createobject("scripting.filesystemobject")

'  Cria um arquivo texto no servidor
Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true)

' define o cabecalho da tabela (com borda, sem borda, cores)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Campo 01</th>")
act.WriteLine("<th nowrap>Campo 02</th>")
act.WriteLine("<th nowrap>Campo 03</th>")
act.WriteLine("</tr>")

' No laco For next vamos criar uma linha para cada registro
for documents= 1 to 5
Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("campo01") & "</td>")
act.WriteLine("<td align=""left"">"& rs("campo02") & "</td>")
act.WriteLine("<td align=""left"">"& rs("campo03") & "</td>")
act.WriteLine("</tr>")

' move para o proximo registro
rs.movenext

' volta a criar a proxima linha da tabela para o time
next

' fecha as tags HTML
act.WriteLine("</table></body></html>")

' fecha o objeto Excel
act.close

' Mensagem exibida após gerar o arquivo
response.write "Arquivo <b>teste.xls</b> gerado com Sucesso!"
%>

espero que seje útil, falows

:rindo:

Portal Onde tem Festa - Divulgação e Cobertura de Eventos
www.ondetemfesta.com.br

DEC WebSites - Desenvolvimento de WebSites
www.decwebsites.com.br

Ir para o topo of the page up there ^
Quote
Responder

#2 Joaquim Tito

http://magotito.labrute.fr http://magotito.mybrute.com

Grupo: Membro Amigo
Posts: 1134
Cadastrado: 07-julho 06
Localização:São Paulo
Interesses:Informática e descontração.

Postou 01 novembro 2007 - 09:39

Grande David! Esse é o meu garoto... :rindo:

Muito útil esse código!

Parabéns!

Índio

* Acessou o fórum e achou sua informação? Então cadastre-se e poste como a ajuda foi válida e se foi válida.Não achou a informação na busca? Poste que teremos o maior prazer em ajudá-lo!
* Tutorial + grana? Só no webly! Acesse: http://forum.webly.com.br/index.php?showtopic=16220
* Faço parte da campanha: Não assassine a língua portuguesa. Tenha modos ao escrever para que todos consigam entender a sua dúvida.
"Engles eu não cei, mas porrtuguez eu çou fera."(By Caliope)