Exportar e abrir arquivo

[fdirk]

Boa tarde.

Estou querendo exportar o conteúdo do banco de dados p/ um arquivo no excel.

O código abaixo faz isso, mas ele salva em um diretório. Gostaria de somente abrir o excel com o conteúdo. O q é necessário alterar no código p/ isso?

Set rstTemp = Server.CreateObject("ADODB.Recordset")

  Set FSO = Server.CreateObject("Scripting.FileSystemObject")
   
   tipo = "Cadastrados"
   arq = "cadastrados.csv"
   caminho = Server.Mappath("tmp/cadastrados.csv")
   Set TXT = FSO.OpenTextFile(caminho,2,1)
   TXT.writeLine("Nome;Nome de Guerra;Funcao;CPF")
   sql = "SELECT * FROM TB_CADASTRO ORDER BY TX_NOME"

   rstTemp.Open sql, oConn, 3, 3
   Do while not rstTemp.eof
    TXT.WriteLine (rstTemp("tx_nome")&";"&rstTemp("tx_nome_guerra")&";"&rstTemp("tx_funcao")&";"&rstTemp("tx_CPF"))
    rstTemp.movenext
   Loop

Att,

[rodrigotnoma]

De uma olhada:

http://www.linhadecodigo.com.br/Artigo.aspx?id=275

Abços

[bareta]

use a busca do fórum...