Exportar asp para excel

cesarhtc · Outubro 23, 2012

Boa noite, como faço para exportar dados de pagina asp para excel?

Desde já agradeço.

Cesar

Humberto Oliveira Pinto · Outubro 23, 2012

<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=nome_arquivo.xls"
%>
<table>
<tr>
<td>Categoria</td>
<td>Descricao</td>
</tr>
<tr>
<td>Programas</td>
<td>descricao 1</td>
</tr>
<tr>
<td>Hardware</td>
<td>descricao 2</td>
</tr>
</table>

cesarhtc · Outubro 23, 2012

Primeiro Obrigado.

Para montar uma página de dados seria assim?

'1) Montar a String de Conexão

'Dim Conexao

Set Conexao = CreateObject("ADODB.Connection")

Conexao = "...."

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

sql="select * from"

<%Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader "Content-Disposition", "filename=nome_arquivo.xls"

%>

<table>

<tr>

<td>nome da coluna</td>

</tr>

<tr>

<td>Programas</td>

<td>descricao 1</td>

</tr>

<tr>

<td>Hardware</td>

<td>descricao 2</td>

</tr>

</table>

xanburzum · Outubro 23, 2012

eu uso assim:

<%
Response.ContentType = "application/vnd.ms-excel"

set objconn=server.createobject("adodb.connection")

connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\seu_banco.mdb"
objconn.Open connpath

set objrs=objconn.execute("select * from produtos where id < 20 ")

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

rafaeldupalio · Setembro 3, 2014

galera o que estou fazendo errado nesse codigo? Ele exporta mas quando abro o excel as linhas referentes ao banco estao ocultas preciso selecionar as duas linhas no excel e mandar re-exibir!
alguem sabe me explicar pq disso?

<%

VAR_STATUS=("DEV")

vSql = "SELECT * FROM TAB_QUADRO_BRASFELS WHERE STATUS='"&vAR_STATUS&"' ORDER BY CT,CODIGO ASC"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

response.ContentType="application/vnd.ms-excel"

response.AddHeader "content-disposition", "inline; filename=Devolucao.xls"

VAR_Dia=DATE()

VAR_QT=("1")

VAR_UND=("UND")

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<td colspan="8"><b>DESCRIÇÃO DAS MERCADORIAS</b></td>

</tr>

</table>

<tr>

<td width="5%" scope="col">MATERIAL OU EQUIPAMENTO</td>

<td width="5%" scope="col">UNITÁRIO</td>

<td width="5%" scope="col">TOTAL</td>

</tr>

<%do while not myRst.EOF

var_codigo = myRst.fields("codigo")

var_ct = myRst.fields("CT")

var_Descricao = myrst.fields("Descricao")

var_Nfiscal = myrst.fields("Nfiscal")

var_Vunitario = myrst.fields("Valor_uni")

%>

<tr>

</tr>

<% myRst.MoveNext

loop

%>

</table>

</body>

</html>

Entrar

Arquivado

Exportar asp para excel

Recommended Posts

cesarhtc 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Humberto Oliveira Pinto 8

Compartilhar este post

Link para o post

Compartilhar em outros sites

cesarhtc 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

rafaeldupalio 5

Compartilhar este post

Link para o post

Compartilhar em outros sites

Soma dos dias utilizados

Saber se todos os produtos de uma consulta estão cadastrados no banco de dados

Ler campos com caracteres especiais no xml

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante