Assine:
Gerar Um Arquivo Do Excel
Gerar um arquivo do excel
Escrito por David Cruvinel em ASP. Data: 01/11/2007
Licença: Alguns direitos reservados. Dar créditos ao autor e linkar este original
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:
espero que seje útil, falows
CODE
<%
' 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!"
%>
' 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
Mais recentes em ASP
- Asp info
- Por Lucasbr - Veja as configurações do seu servidor...
- Criptografia sha-256 em asp
- Por Lucasbr - A família de sha (secure hash algorithm) está relacionada...
- Tabela dinâmnica
- Por RobsonUgoStoso - Montando uma tabela dinâmica com datas...
- Cdosys error '8004020f' - a solução
- Por David Cruvinel - A solução...
- Recuperar stored procedure
- Por Pinguim - No trampo novo, precisei recuperar algumas storedprocedures....
Ver mais Artigos de ASP.
Ver e retirar outras dúvidas no fórum Webly.
Alguns Direitos Reservados | RSS | O Fórum
Webly Portal e Fóruns - Internet + Humana | Design by ArthurHenrique.com
Comentários:
Joaquim Tito disse:
Muito útil esse código!
Parabéns!
David Cruvinel disse:
Muito útil esse código!
Parabéns!
Esse é meu mestre....huahuahua
tamu ai na atividade....
Ver o restante dos comentários no fórum (e aproveitar pra comentar também !).