excel en asp

atrio
14 de Abril del 2004
HOLA:

tengo una preguntilla a ver si me podiais ayudar...
Se puede poner una tabl de excel en un asp, es decir q cuando habra la pagina automaticamente se habra le tabla de excel en la pagina.

Peter Sugasti
14 de Abril del 2004
Es mas o menos esto...espero que te sirva.
Saludos
Peter

' Primero tenes que definir en el Excel el area en la cual queres trabajar
' PAra eso tenes que ir a INSERTAR - NOMBRE - DEFINIR y agregar uno que sea por ejemplo datos (para cuando haces el select)

'Las variables del archivo adovbs.inc
Const adOpenStatic = 3
Const adLockPessimistic = 2

'Nos conectamos a la hoja de datos del Excel
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("Libro1.xls") & ";"
db.open DB_CONNECTIONSTRING

'Recordset correspondiente a un rango de datos
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "SELECT * FROM datos"
rs.open SQLStr,DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdText

'Nmero de columnas de la tabla
columnas = rs.Fields.Count

'Nos ponemos en el primer registro
rs.MoveFirst

html = html + "<TABLE cellpadding=0 cellspacing=0 border=0 width=500>"
Do while (Not rs.EOF)

html = html + "<TR>"
' rs.Fields.Item(0).Value tiene la columna 1
html = html + " <TD>" + rs.Fields.Item(0).Value +"</TD>"
' rs.Fields.Item(1).Value tiene la columna 2
html = html + " <TD>" + rs.Fields.Item(0).Value +"</TD>"
html = html + "</TR>"
html = html + "</TABLE>"

Loop

'Eliminamos el recordset
rs.Close
Set rs = Nothing
'Eliminamos la bd
db.Close
Set db = Nothing