Ir para conteúdo
Fórum Script Brasil
  • 0

Por Favor Me Ajudem!


maykon

Pergunta

Boa Tarde galera!!!

Como eu faço para gerar um arquivo excel com o asp e abri aquela caixa de dialogo para fazer download do aquivo?

Gostaria de fazer assim:

quando eu clicar no botão ele gera um planilha de acordo com os dados e logo em seguida ele pede para fazer download do aquivo

Deade já agradeço muito!!!!!!

Abraços

Maykon Alves

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Vê se dá certo, eu fiz assim: inseri essa função java script e depois a chamei no botão:

<script language="JavaScript" type="text/JavaScript">

function ExportarParaExcel() {

var Pagina

Pagina = ""

Pagina = "ExportaParaExcelGeral.asp"

window.open(Pagina, 'Excel', 'width=600,height=400,resizable=0,status=0,menubar=1,scrollbars=1,left=140,top=90');

}

function SalvarNoExcel() {

var o_Excel;

var Excel_append;

Excel_append = new ActiveXObject("Excel.Application");

o_Excel = new ActiveXObject("Excel.Sheet");

o_Excel.Application.Visible = true;

o_Excel.ActiveSheet.Cells(1,1).Value = "Esta é a coluna A, linha 1";

o_Excel.SaveAs("C:\\ARQUIVO.XLS");

o_Excel.Application.Quit();

}

No botão:

<INPUT id=button1 type=button value="Exporta para Excel" name=button1 onClick="javascript:ExportarParaExcel();" style="width: 110px; HEIGHT: 22px">

Link para o comentário
Compartilhar em outros sites

  • 0

TALVEZ ESTEJA DANDO ERRO PORQUE EU ESQUECI DE MANDAR O ARQUIVO: EXPORTAPARAESCELGERAL.ASP, DESCULPE!

LÁ VAI:

<%@LANGUAGE="VBSCRIPT"%>

<html>

<body>

<!--#include file="Connections/Gestao.asp" -->

<!--#include file="ZerosaEsquerda.asp" -->

<!--#include file="CaseMaiusculoMinusculos.asp" -->

<%

Dim ArLinhas

ArCampos = Session("RsCampos")

ArLinhas = Session("RsLinhas")

Response.Buffer = TRUE

Response.ContentType = "application/xls"

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

%>

<table border="1" bordercolor="#0055BB" width="100%" align="center" cellpadding="4" cellspacing="1" class="estilo1" id="tabela">

<THead> <%

QtdeColunas = UBound(ArLinhas,1)

QtdeLinhas = UBound(ArLinhas,2)

For Coluna = 0 to QtdeColunas

NomeCampo = MMCase(Replace(ArCampos(Coluna), "_", " ")) %>

<TH width="200%" height="20" border="1" bgcolor="#0033CC" class="estilo3"><font color="#FFFFFF"><%=NomeCampo%></font></TH><%

Next %>

</THead> <%

Qtde = CInt(QtdeColunas)

ReDim Somatorios(Qtde)

Dim soma

For Linha = 0 to QtdeLinhas %>

<TR bgcolor="#e7e7e7">

<%

For Coluna = 0 To QtdeColunas %>

<td width="200%" border="3" align="right" nowrap class="estilo3"><%=ArLinhas(Coluna,Linha)%></td> <%

Next

response.write "</TR>"

Next

Session("RsCampos") = ""

Session("RsLinhas") = ""

%>

</TABLE>

</body>

</HTML>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...