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

Importar Do Banco Para O Excel...


marcos_804

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

já fiz assim e deu certo,

da uma olhada neste link que la também tem alguma coisa

http://www.visualbasic.mat.br/vb/artigos_b...rch=excel&B3=OK

<!--#include file="../conexao.inc" -->

<%

Dim conexaodb, email, arquivo_excel

if session("id")="" then

response.redirect "index.asp"

end if

str = "select email from cadastro order by email asc"

str2 = "select email from cadastro order by email asc"

call abreconexao

Set rs = conexaodb.Execute(str)

Set rs2 = conexaodb.Execute(str2)

rs.MoveFirst

arquivo_excel= "emails.xls"

set fso = createobject("scripting.filesystemobject")

Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true)

act.WriteLine("<html><body>")

act.WriteLine("<table border=""1"">")

act.WriteLine("<tr>")

act.WriteLine("<th nowrap>Email</th>")

act.WriteLine("</tr>")

Do While Not rs.Eof

Act.WriteLine("<tr>")

act.WriteLine("<tudo align=""right"">" & rs("email") & "</tudo>" )

act.WriteLine("</tr>")

rs.movenext

loop

act.WriteLine("</table></body></html>")

act.close

rs2.MoveFirst

arquivo_doc= "emails.doc"

set fso = createobject("scripting.filesystemobject")

Set act2 = fso.CreateTextFile(server.mappath(arquivo_doc), true)

act2.WriteLine("<html><body>")

act2.WriteLine("<b>Emails</b>")

act2.WriteLine("<br>")

Do While Not rs2.Eof

act2.WriteLine("<br>" & rs2("email"))

rs2.movenext

loop

act2.close

%>

<html>

<head>

<title>...::: S&oacute; Vit&oacute;ria</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../estilos.css" rel="stylesheet" type="text/css">

</head>

<body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0">

<table width="760" border="0" cellspacing="0" cellpadding="0">

<tr>

<tudo width="740" colspan="2"> <!--#include file="menu.asp" --> </tudo>

</tr>

<tr>

<tudo colspan="2">&nbsp;</tudo>

</tr>

<tr>

<tudo colspan="2">

<table width="100%" border="0" cellpadding="5" cellspacing="5" class="arial_textosObs">

<tr>

<tudo width="25" rowspan="6">&nbsp;</tudo>

<tudo class="arial9a"><a href="emails.xls" target="_blank" id="link01">&raquo;gerar listagem de emails em .xls (planilha excel</a>) </tudo>

</tr>

<tr>

<tudo class="arial9a"><a href="emails.doc" target="_blank" class="arial9a" id="link01">&raquo;gerar listagem de emails em .doc (arquivo texto) </a></tudo>

</tr>

</table>

</tudo>

</tr>

<tr>

<tudo colspan="2">&nbsp;</tudo>

</tr>

<tr>

<tudo colspan="2" align="right"> <!--#include file="../rodape.asp" --></tudo>

</tr>

</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,4k
×
×
  • Criar Novo...