Exportar dados para o Excel

[GlauberBest 0]

:lol: Galera estou com um sério problema. Estou precisando de exportar dados de um banco de dados em access para o excel 2000 e tenho que usar o asp para isso.Existe como fazer isso?Alguém poderia me ajudar?Obrigado!!!!!!!!!!!!!!!!

[fernandam 0]

coloque isto no inicio do codigo ASP: Response.Contenttype = "application/vnd.ms-excel"O ASP trabalha bem com o excel.

[d.eleete 0]

Aproveitando o embalo eh possivel escolher qual tabela eu irei exportar? escolher o nome de arquivo etc...?

[GlauberBest 0]

Ae galera eu conqui valeu!!!!!!!!!!!

[d.eleete 0]

<%@ Language=VBScript %><% ' GenerateXLS Version 1.0 by Brian Kirsten (bkirsten@brainscanstudios.com)' 1st modified 11/29/00' 2nd modification 10/25/02' copyright Ó 2000 Brain Scan Studios, Inc. (http://www.brainscanstudios.com)' source distributed under the gnu general public license.' let me know if your site is using the code i will put a link up to your page!Dim sTableDim sDSNDim sFieldssDSN = "<DSN>" 'Name of your DSNsFields = "<FIELDS>" 'List of fields comma delimitedsTable = "<TABLE_NAME>" 'Name of your table or ViewSet DB = Server.CreateObject("ADODB.Connection")Set RS = Server.CreateObject("ADODB.Recordset")DB.Open sDSNRS.Open "select "& sFields &" from "& sTable,DBResponse.ContentType = "application/csv"Response.AddHeader "Content-Disposition", "filename=mydata.csv;"' lets print the fields on topfor i = 0 to RS.Fields.Count-1if i = (RS.Fields.Count - 1) thenResponse.Write lcase(RS.Fields(i).Name)elseResponse.Write lcase(RS.Fields(i).Name) & ","end if nextResponse.write vbNewLineResponse.write vbNewLinewhile not RS.EOFfor u=0 to RS.Fields.Count - 1if u = (RS.Fields.Count - 1) thenResponse.Write RS.Fields(u).ValueelseResponse.Write RS.Fields(u).Value & ","end if nextresponse.write vbNewLiners.MoveNextwendResponse.write vbNewLineResponse.write vbNewLineSet RS = NothingSet DB = Nothing%>

[GlauberBest 0]

Valeu Brother muito obrigado!!!!!!!!!!!!!!!!!!! :lol:

[d.eleete 0]

:lol: po eu achei agora esse codigo, e tbm me quebrou um FUTURO galho :lol: