(Resolvido) gerando planilhas no excel com asp

Clauido José · Agosto 21, 2009

Ola pessoal tenho uma pagina que gera uma consulta de um query e preciso gerar um relatorio no excel no que não to conseguindo fazer ele só exibe na tela e não gera o excel aguem pode me ajudar

<%@ Language="VBScript" %>  
<html>  
<head>  
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">  
<title>Gerando Planilhas em EXCEL</title>  
</head>  
<body>  
 <%
 %>
 <!--#include file="strcon.asp"-->
 <%
Response.ContentType = "application/vnd.ms-excel"  
 Response.AddHeader "Content-Disposition", "attachment;filename=PlanilhaVisitantesBuscaAvancada.xls"   
 end if
 dim strSql,Conexao
 call abreConexao()  
 sDataInicio="2009-08-21 00:00:00"
 session("idEmpresa")=18
 sSql="SELECT * FROM tabDth where datCompromisso='" & sDataInicio & "'"
 if dataF<>"" then sSql=sSql&" and datCompromisso<='" & sDataFinal & "'"
 sSql=sSql & " and idEmpresa="&session("idEmpresa")
 if rsBusca.state=1 then rsBusca.Close
 rsBusca.Open sSql,Conexao,1,1
 if not rsBusca.Eof then
  do while not rsBusca.Eof 
   if rsBusca("IdTipoOs")<>"" then
    sSql="SELECT * FROM tabTipoOs where idTipoOs="& rsBusca("idTipoOs")
    if rsAuxilia.state=1 then rsAuxilia.close
    rsAuxilia.open sSql,Conexao,1,1
    if rsAuxilia.RecordCount>0 then sTipoOs=rsAuxilia("Descricao")        
   end if
   if rsBusca("idProduto")<>"" then
    sSql="SELECT * FROM tabProdutos where idProduto="&rsBusca("idProduto")
    if rsAuxilia.state=1 then rsAuxilia.close
    rsAuxilia.open sSql,Conexao,1,1
    if rsAuxilia.RecordCount>0 then sProduto=rsAuxilia("DescricaoProduto")
   end if 
   if rsBusca("idCliente")<>"" then
    sSql ="SELECT * FROM tabCliente where idCLiente=" & rsBusca("idCliente")
    if rsAuxilia.state=1 then rsAuxilia.close
    rsAuxilia.open sSql,Conexao,1,1
    if rsAuxilia.RecordCount>0 then
     sCliente=rsAuxilia("NomeCliente")
     sEnderec=rsAuxilia("endereco")
     sBairro=rsAuxilia("Bairro")
     scep=rsAuxilia("cep")
     sSql ="SELECT * FROM tabCidades where idCidade=" & rsAuxilia("idCidade")
     if rsAuxilia.state=1 then rsAuxilia.close
     rsAuxilia.open sSql,Conexao,1,1
     if rsAuxilia.RecordCount>0 then sCidade=rsAuxilia("Cidade")
    end if        
   end if
   if rsBusca("idTecnico")<>0 then 
    sSql="SELECT * FROM tabTecnicos where idTecnico="&rsBusca("idTecnico")        
    if rsAuxilia.state=1 then rsAuxilia.close
    rsAuxilia.open sSql,Conexao,1,1
    if rsAuxilia.RecordCount>0 then 
     sTecnico=rsAuxilia("Nome_Tecnico")
     sRe=rsAuxilia("rE")
    end if
   end if
   sSql="select * from tabEmpresa where idEmpresa="&rsEmpresa("idEmpresa")
   if rsAuxilia.state=1 then rsAuxilia.close
   rsAuxilia.open sSql,Conexao,1,1
   if rsAuxilia.RecordCount>0 then sEmpresa=rsEmrpesa("Responsavel")
   if rsBusca("idStatus")<>0 then
    sSql="SELECT * FROM tabStatus where idStatus="& rsBusca("idStatus")
    if rsAuxilia.state=1 then rsAuxilia.close
    rsAuxilia.open sSql,Conexao,1,1
    if rsAuxilia.RecordCount>0 then sDStatus=rsAuxilia("CODIGO")
   end if
%>  
 <table width="2000" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela">  
   <tr>
    <td width="10%" class="SubTitulo">N&ordm; Os </td>
    <td width="10%" class="SubTitulo">COMPRIMISSO </td>
    <td width="10%" class="SubTitulo">TIPO OS </td>
    <td width="10%" class="SubTitulo">PRODUTO</td>
    <td width="10%" class="SubTitulo">CLIENTE</td>
    <td width="10%" class="SubTitulo">ENDERECO</td>
    <td width="10%" class="SubTitulo">BAIRRO</td>
    <td width="10%" class="SubTitulo">CIDADE</td>
    <td width="10%" class="SubTitulo">CEP</td>
    <td width="10%" class="SubTitulo">ES</td>
    <td width="10%" class="SubTitulo">TIPO_RESIDENCIA</td>
    <td width="10%" class="SubTitulo">Dat_solicita&ccedil;&atilde;o</td>
    <td width="10%" class="SubTitulo">Periodo</td>
    <td width="10%" class="SubTitulo">TERMINAL</td>
    <td width="10%" class="SubTitulo">Qtd_Ponto</td>
    <td width="10%" class="SubTitulo">Tarefa_Assist_Tec</td>
    <td width="10%" class="SubTitulo">RE</td>
    <td width="10%" class="SubTitulo">Empresa</td>
    <td width="10%" class="SubTitulo">Status</td>
    <td width="10%" class="SubTitulo">TA</td>
    <td width="10%" class="SubTitulo">Data Baixa</td>
    <td width="10%" class="SubTitulo">Horario Inicio</td>
    <td width="10%" class="SubTitulo">Horario Termino</td>
    <td width="10%" class="SubTitulo">Contagen de dias</td>
    <td width="10%" class="SubTitulo">Tecnico</td>
    <td width="10%" class="SubTitulo">OBS SERVI&Ccedil;OS</td>
    <td width="10%" class="SubTitulo">&nbsp;</td>
    <td width="10%" class="SubTitulo">Tarefa</td>
    <td width="10%" class="SubTitulo">CONTATO</td>
    <td width="10%" class="SubTitulo">INF ADICIONAL</td>
    <td width="10%" class="SubTitulo">RESULTADO</td>
    <td width="10%" class="SubTitulo">DESCRIÇÃO</td>
    <td width="10%" class="SubTitulo">Serviço</td>
    <td width="10%" class="SubTitulo">DATA DE INSTALAÇÃO</td>
    <td width="10%" class="SubTitulo">TIPO</td>
    <td width="10%" class="SubTitulo">N&ordm;</td>
    <td width="10%" class="SubTitulo">COMPLEMENTO</td>
    <td width="10%" class="SubTitulo">Atendente</td>
    <td width="10%" class="SubTitulo">RE atendente</td>
    <td width="10%" class="SubTitulo">Senha BX</td>
    <td width="10%" class="SubTitulo">Atribuido</td>
    <td width="10%" class="SubTitulo">Alterado</td>
    <td width="10%" class="SubTitulo">Data da altera&ccedil;&atilde;o</td>
    <td width="10%" class="SubTitulo">Pacote</td>
    <td width="10%" class="SubTitulo">Observa&ccedil;&atilde;o</td>
    <td width="10%" class="SubTitulo">Age</td>
    <td width="10%" class="SubTitulo">Motivo da Baixa</td>
    <td width="10%" class="SubTitulo">Alterado t&eacute;cnico</td>
    <td width="10%" class="SubTitulo">Alterado empresa</td>
    <td width="10%" class="SubTitulo">Status AC</td>
    <td width="10%" class="SubTitulo">Danos</td>
    <td width="10%" class="SubTitulo">Codigo servi&ccedil;o</td>
    <td width="10%" class="SubTitulo">N&ordm; OS Garantia</td>
    <td width="10%" class="SubTitulo">DT BX Garantia</td>
    <td width="10%" class="SubTitulo">Tecnico Garantia</td>
   </tr> 
   <tr>
    <td width="10%" class="SubTitulo"><%=rsBusca("NoOs")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("datCompromisso")%></td>
    <td width="10%" class="SubTitulo"><%=sTipOs%></td>
    <td width="10%" class="SubTitulo"><%=sProduto%></td>
    <td width="10%" class="SubTitulo"><%=sCliente%></td>
    <td width="10%" class="SubTitulo"><%=sEnderec%></td>
    <td width="10%" class="SubTitulo"><%=sBairro%></td>
    <td width="10%" class="SubTitulo"><%=sCidade%></td>
    <td width="10%" class="SubTitulo"><%=sCep%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("ES")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("TipoResidencia")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("DatSolicitada")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Periodo")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("QtdPontos")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("TarAssisTecnico")%></td>
    <td width="10%" class="SubTitulo"><%=sRe%></td>
    <td width="10%" class="SubTitulo"><%=sEmpresa%></td>
    <td width="10%" class="SubTitulo"><%=sDStatus%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("NoTa")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("DatBaixa")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("HoraInicio")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("HoraTermino")%></td>
    <td width="10%" class="SubTitulo"><%=sTecnico%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("ObsServico")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Tarefa")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Contato")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("InfoAdcionais")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Descricao")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Resultado")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("ObsLaudo")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("idServico")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("DatInstalacao")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Tipo")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("No")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Complemento")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("ReAtendente")%></td>      
    <td width="10%" class="SubTitulo"><%=rsBusca("Atendente")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("SenhaBx")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Atribuido")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Alterado")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("DatAlterado")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Observacao")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Pacote")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("AGE")%></td>
    <td width="10%" class="SubTitulo"><%=sMotivo%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("alteradoEmpresa")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("alteradoTecnico")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("StatusAC")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("Danos")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("codServico")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("NoGarantia")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("DtDatBaiGarantia")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("TecnicoGarantia")%></td>
    <td width="10%" class="SubTitulo"><%=rsBusca("EmpresaGarantia")%></td>
   </tr>
</table>
 <p>
   <%
   rsBusca.movenext
  loop
  
  call fechaConexao()
  set Conexao=nothing
  set rsBusca=nothing
  set rsAuxilia=nothing
 end if  
 %>  
</p>
 <table width="840" border="0" cellspacing="2" cellpadding="2">
      <tr>
        <td><span class="SubTitulo">
          <input name="butGravar2" type="button" id="butGravar2" value="GERAR XLS" onclick="subMit2()" />
        </span></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
 <p>&nbsp;    </p>
</body>  
</html>

.Andreia. · Agosto 24, 2009

tente colocando estre trecho que você tem no seu codigo:

Response.ContentType = "application/vnd.ms-excel"  
Response.AddHeader "Content-Disposition", "attachment;filename=PlanilhaVisitantesBuscaAvancada.xls"

no começo, bem no começo do codigo

Clauido José · Setembro 1, 2009

resolvi essa era uma limitação do server

Entrar

(Resolvido) gerando planilhas no excel com asp

Pergunta

Clauido José

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Clauido José

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades