(Resolvido) Exportando dados carregados em uma tabela para Excel

[danyllo.franco]

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 Fevereiro 19, 2009 por danyllo.franco

[jow]

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

[danyllo.franco]

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 Fevereiro 19, 2009 por danyllo.franco

[bareta]

você deve armazenar todo o bloco de repetição em uma variavel...

html=""
while not rs.eof
html=html&"conteudo"
html=html&"conteudo"
html=html&"conteudo"
html=html&"conteudo"
rs.movenext

[danyllo.franco]

Olá galera. Consegui resolver o problema abaixo e gostaria de compartilhar com vocês. Um código que localizei no seguinte link:

http://www.macoratti.net/asp_xls2.htm

Valeu mesmo pela ajuda.......

Abs,

Danyllo