Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mebkocznski

Criando Arquivos

Por , em ASP Clássico

Recommended Posts

mebkocznski    0

mebkocznski
Postado

Srs.

 

Alguns programadores não sabem, mas, tanto o Word (Office 2000) como o Excel (Office 2000) aceitam o formato HTML para criação de arquivo.

 

Ou Seja, podemos exportar uma tabela HTML para o excel, simplesmente criando um arquivo HTML e salvando o mesmo com a extensão "xls".

 

Lá vai um código para criarmos arquivos em Word ou Excel facilmente.

 

Function Monta_Arquivo(texto, Extensao) Dim ObjFileDim SArquivoDim OFile        Set ObjFile = CreateObject("Scripting.FileSystemObject")        SArquivo = OServer.MapPath("Arquivo." & Extensao)        Set OFile = ObjFile.CreateTextFile(SArquivo, True)        OFile.Write texto        OFile.Close        Monta_Arquivo = SArquivo    FechaConexao ConntempEnd Function

Para fazer a chamada da Função

 

Crie uma tabela HTML e Passe para a função....

 

StrHTML = "<html>"StrHTML = StrHtml & "<Body>"StrHTML = StrHtml & "<table Border='0'>"StrHTML = StrHtml & "<Tr>"StrHTML = StrHtml & "<Td>Nome</td>"StrHTML = StrHtml & "<Td>Fone</td>"StrHTML = StrHtml & "</Tr>"StrHTML = StrHtml & "<Tr>"StrHTML = StrHtml & "<Td>Marcelo</td>"StrHTML = StrHtml & "<Td>(11)669974147</td>"StrHTML = StrHtml & "</Tr>"StrHTML = StrHtml & "</table>"StrHTML = StrHtml & "</Body>"StrHTML = StrHtml & "</Html>"AddrArquivo = Monta_Arquivo(StrHtml,"xls")''''''AddrArquivo = Endereço Completo de onde o arquivo foi criado

 

 

Falow Galera !!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito