ASP - Desde ASP generar Facturas en Excel

 
Vista:

Desde ASP generar Facturas en Excel

Publicado por Ana Castro (16 intervenciones) el 25/09/2002 15:24:59
Hola a todos

Mi problemita es que desea generar un documento excel desde la pagina. La información que tengo que ponerle esta en una tabla de base de datos y el formato de excel esta listo.

No tengo ni idea de que es lo que tengo que hacer... por favor ayudenme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Desde ASP generar Facturas en Excel

Publicado por rafa (1 intervención) el 26/09/2002 19:41:00
pista: genera un file con los datos que extraigas de la base de datos
en formato CSV (valores separados por comas,vamos, k añadas un acoma despues de cada daro) ke es uno de los ke excel entiende.se podra habrir desde excel.
salut
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Desde ASP generar Facturas en Excel

Publicado por Avatar (150 intervenciones) el 26/09/2002 20:29:58
Hola:

Te paso el codigo de una funcion ASP que transforma una tabla en formato CSV que (como bien dice Rafa) sirve para utilizar en Excel:

Sub ExportarExcel
Dim sTable
Dim sDSN
Dim sFields

sDSN = "<DSN>" 'Name of your DSN
sFields = "<FIELDS>" 'List of fields comma delimited
sTable = "<TABLE_NAME>" 'Name of your table or View

Set DB = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")

DB.Open sDSN

RS.Open "select "& sFields &" from "& sTable,DB

Response.ContentType = "application/csv"
Response.AddHeader "Content-Disposition", "filename=mydata.csv;"
' lets print the fields on top

for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write RS.Fields(i).Name
else
Response.Write RS.Fields(i).Name & ","
end if
next

Response.write vbNewLine
Response.write vbNewLine

while not RS.EOF
for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value & ","
end if
next

response.write vbNewLine

rs.MoveNext
wend

Response.write vbNewLine
Response.write vbNewLine

Set RS = Nothing
Set DB = Nothing
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar