Gerar Um Arquivo Do Word (.doc)

Gerar Um Arquivo Do Word (.doc) Avaliar tópico:

#1 David Cruvinel

Alguma Coisa!

Grupo: Coordenadores
Posts: 1976
Cadastrado: 25-agosto 06
Localização:Guaxupé - MG

Postou 24 janeiro 2008 - 08:10

Bom galera, aqui vai um exemplo de como gerar um arquivo para o Word (.DOC) usando ASP

<%
' Não esqueça de fazer a conexão com seu banco de dados antes ok

' Faz o select dos dados a serem gravados no arquivo DOC
Set rs = conexao.execute("select campos from tabela")

' Cria o arquivo texto no servidor
arquivo_doc = "david.doc"
 
' Cria o arquivo FSO
set fso = createobject("scripting.filesystemobject")

' Cria o arquivo texto com a opção TRUE (sobrescreve arquivos já existentes com o mesmo nome)
Set act = fso.CreateTextFile(server.mappath(arquivo_doc), true)

' Escrevendo o arquivo DOC

' Titulo da Página
act.WriteLine("<html><title>David Cruvinel</title>")
' Cor de Fundo da página
act.WriteLine("<body bgcolor='#FFFFFF'> " )

' dados trazidos do select
While not rs.eof
act.WriteLine("Nome:" & rs("nome") & "<br>" )
act.WriteLine("Site:" & rs("site") & "<br>" )
act.WriteLine("Fórum:" & rs("forum") & "<br>" )
act.WriteLine("Área:" & rs("area") & "<p>")
Rs.MoveNext
Wend

' fecha as tags
act.WriteLine("</body></html>")

' Fecha o objeto
act.close
rs.close

' Exibe um link do arquivo gerado
response.write "<a href='david.doc'>David Cruvinel</a> (.doc) &nbsp;" & now() & "<br>"
%>

Qualquer dúvida, poste.
Até a próxima..
Abraços.

Portal Onde tem Festa - Divulgação e Cobertura de Eventos
www.ondetemfesta.com.br

DEC WebSites - Desenvolvimento de WebSites
www.decwebsites.com.br

Ir para o topo of the page up there ^
Quote
Responder

#2 Rafael2506

Grupo: Membros
Posts: 4
Cadastrado: 08-outubro 08

Postou 08 outubro 2008 - 08:26

Ok, muito bom esse codigo, esta funcionando, queria saber se tem como colocar um link nele.

EX: em site, quando ele clicar no texto, dentro do word, ele vai para o meu site, fiz em accesse coloquei a tabela com Hiperlink e não funcionou, tem como fazer isso.

abraços

Ir para o topo of the page up there ^
Quote
Responder

#3 Rafael2506

Grupo: Membros
Posts: 4
Cadastrado: 08-outubro 08

Postou 08 outubro 2008 - 10:23

oba, oba,

ja consegui colocar o link para funcionar bastou acrescentar algumas coisinhas, segue abaixo.

' dados trazidos do select
While not rs.eof
act.WriteLine("Nome:" & rs("nome") & "<br>" )
act.WriteLine("Site:" & rs("site") & "<br>" )
act.WriteLine("Fórum:" & rs("forum") & "<br>" )
//acrecentar nesta parte aqui
act.WriteLine("Foto: <a href=" & rs("Link") & "> Foto</a> <br>")

vlw