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

(Resolvido) Exportando dados carregados em uma tabela para Excel


danyllo.franco

Pergunta

Olá novamente !!!!........:blush: Olha eu aí enchendo o saco de vocês de novo...rsrsrsrs

Pessoal, preciso exportar uma tabela (tabela entre as tags <table> mesmo) de dados que é exibida ao usuário. Vasculhei os tópicos do fórm e encontrei um code do cyberalexxx (abaixo). Eu consegui exportar, mas os dados que eu quero não são exibidos no arquivo do excel, nesta parte do código 'conteudo da pagina response.write "conteudo" eu tento substituir o conteúdo pelo html <table> onde estão sendo mostrados os dados, mas ocorre um erro. Peço desculpas se as vezes meus posts são de coisas básicas, é que eu estou aprendendo ASP na raça.........rs......Valewww

<%

if request("botao") = "exportar" then

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

Response.AddHeader "Content-Disposition", "attachment;filename=arquivo.xls"

end if

'conteudo da pagina

response.write "conteudo"

if request("botao") <> "exportar" then

response.write "<form action='" & request.servervariables("script_name") & "'>"

response.write "<input type='submit' name='botao' value='exportar'>"

response.write "</form>"

end if

%>

Abs,

Danyllo

Editado por danyllo.franco
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Cara não se entendi bem a sua dúvida ... Tudo deve estar dentro do if ...

<%
if request("botao") = "exportar" then
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=arquivo.xls"

response.write "conteudo" 

end if
%>

Link para o comentário
Compartilhar em outros sites

  • 0

Então jow está, mas a string "conteudo" do response.write "conteudo" é escrita dentro do arquivo xls. Eu não sei como incluir dentro do xls os dados que são exibidos na página (que retorna valores mediante a um motor de busca).

Olha, os dados estão sendo retornados dentro dessa tabela:

<table width="900" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
          <%
    Do While Not rstSearch.EOF
        %>
          <tr> 
            <td bgcolor="#FFFFE6"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("matricula").Value %></font></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("nome").value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("admissao").value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("cargo").Value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("centro_custo").Value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("site").Value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= 

rstSearch.Fields("empresa").Value %></font></div></td>

                          <td width="66" height="2" align="center" bgcolor="#FFFFE6"> 
                            <div align="center"><font size="1"><b><font face="Verdana, Arial, 

Helvetica, sans-serif" color="#000000"> 
                              <input type="radio" name="radio" value="<%=rstSearch(0)%>">
                              </font> </b></font></div>
                          </td>

          </tr>
          <%

        rstSearch.MoveNext
    Loop

    %>

        </table>

Editado por danyllo.franco
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...