Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

web_w3

Gerar XLS via ASP

Por , em ASP Clássico

Recommended Posts

web_w3    0

web_w3
Postado

Bom dia!

 

Estou precisando de um script para gerar um arquivo XLS do Excel via ASP.

Vou recuperar dados de um banco de dados, e gostaria de gerar um Excel formatado.

 

Andei pesquisando, e só encontrei Esse exemplo de outro forum.

 

Alguém me da uma luz?

 

 

Abçs

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

um exemplo ae pra você:

<!--#include file="conexao.asp"--><%'criando o objeto do excelResponse.ContentType = "application/vnd.ms-excel"Response.AddHeader "content-disposition", "inline; filename=Exportar.xls"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table border="1" cellpadding="2" cellspacing="0" bordercolor="#000000"> <tr bgcolor="#CCCCCC"> <td><strong>Razão Social</strong></td> <td><strong>Contato</strong></td> <td><strong>CNPJ</strong></td> <td><strong>Ins. Estadual</strong></td> <td><strong>Endereço</strong></td> <td><strong>Bairro</strong></td> <td><strong>Cidade</strong></td> <td><strong>Estado</strong></td> <td><strong>CEP</strong></td> <td><strong>País</strong></td> <td><strong>Telefone</strong></td> <td><strong>Fax</strong></td> <td><strong>E-mail</strong></td> <td><strong>Ativo</strong></td> <td><strong>Informações?</strong></td> <td><strong>Data</strong></td> </tr> <% SQL = "Select * from clientes order by razao asc" set rsdados = cnbanco.execute(SQL) while not rsdados.eof %> <tr> <td><%=rsdados("razao")%></td> <td><%=rsdados("contato")%></td> <td> <% If rsdados("cnpj") <> "" Then Response.Write(Left(rsdados("cnpj"), 2) & "." & Mid(rsdados("cnpj"), 3, 3) & "." & Mid(rsdados("cnpj"), 6, 3) & "/" & mid(rsdados("cnpj"), 9, 4) & "-" & Right(rsdados("cnpj"), 2)) End If %> </td> <td><%=rsdados("inscricao")%></td> <td><%=rsdados("endereco")%>, <%=rsdados("numero")%> <% if rsdados("complemento") <> "" then %> | <%=rsdados("complemento")%> <% end if %></td> <td><%=rsdados("bairro")%></td> <td><%=rsdados("cidade")%></td> <td><%=rsdados("estado")%></td> <td> <% Response.Write(left(rsdados("cep"), 5) & "-" & Right(rsdados("cep"), 3) ) %> </td> <td><%=rsdados("pais")%></td> <td><%=rsdados("dddtel")%> - <%=rsdados("telefone")%></td> <td><%=rsdados("dddfax")%> - <%=rsdados("fax")%></td> <td><%=rsdados("email")%></td> <td><% if Cint(rsdados("ativo")) = 1 then %> Sim <% else %> Não <% end if %></td> <td><% if Cint(rsdados("info")) = 1 then %> Sim <% else %> Não <% end if %></td> <td><%=rsdados("data")%></td> </tr> <% rsdados.movenext wend %></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

web_w3    0

web_w3
Postado

Marcelo Barcellos, voce quer dizer o Drive do Excel? se for eu tenho instalado sim.Kaplan o seu exemplo gera um arquivo do Excel formatado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

web..Não é o Drive ODBC, mas o Objeto (Normalmente quem tem o Excel instalado na máquina).Segue exemplo

Sub ObterRelatorioMicrosoftExcelPorRecordset(ByVal ORs, _ ByRef ds_nome_relatorio, _ ByRef varErro) Dim strMetodoSet objEx = Server.CreateObject("Excel.Application")Dim oWbookDim oWSheetDim i2Dim iobjEx.Visible = FalseobjEx.DisplayAlerts = FalseobjEx.UserControl = FalseSet oWbook = objEx.Workbooks.AddSet oWSheet = oWbook.Sheets.Add'========================='INTRODUZ CABECALHO'=========================For i = 0 To ORs.Fields.Count - 1 oWSheet.Cells(1, i + 1) = ORs.Fields.Item(i).NameNext'========================='COPIA RECORDSET PARA A PLANILHA'=========================Call oWSheet.Cells(2, 1).CopyFromRecordset(ORs)objEx.Selection.CurrentRegion.Columns.AutoFitobjEx.Selection.CurrentRegion.Rows.AutoFit ds_nome_relatorio = Server.MapPath(ds_nome_relatorio & ".xls")oWSheet.SaveAs ds_nome_relatoriooWbook.CloseSet oWSheet = NothingSet oWbook = NothingSet objEx = Nothing End Sub

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

Kaplan o seu exemplo gera um arquivo do Excel formatado?

Sim

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito