Ver Mensaje Individual
  #28 (permalink)  
Antiguo 15/08/2002, 15:00
Owen-Bonilla
 
Fecha de Ingreso: mayo-2001
Ubicación: Monterrey, N.L.; México
Mensajes: 558
Antigüedad: 23 años
Puntos: 0
Re: Las FAQ's del foro de ASP

Cómo Muestro un Archivo Excel en una Hoja ASP?

Esto ya lo habian mencionado, pero por si tienen problemas aqui dejo el código completo que funciona bien.
Articulo de ASPFACIL (http://www.aspfacil.com/articulos/190301.asp)


<% @language=vbscript %>
<html>
<head>
<title>Inventario de Excel</title>
</head>

<%

Path=Server.MapPath("Archivo_Excel.xls")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
rsVac.Open "Select * From Nombre_De_Rango" ,ConexionBD,3,3
%>
<body>
<h2><b><center>Inventarios</center></b></h2>
<hr>
<table border=1 align="center">

<%

' Aqui mencionamos las columnas que quiero mostrar ( nota: la columa "A"
' seria rsVac.Fields.Item(0).Name ) osea que este ejemplo te muestra las 3 primelas columas ( A, B y C )


Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

'Y por último, el cuerpo de los datos
Do While Not rsVac.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsVac(0) & "</td>"
Response.write "<td>" & rsVac(1) & "</td>"
Response.write "<td>" & rsVac(2) & "</td>"

Response.Write "</tr>" & vbCrLf
rsVac.MoveNext
Loop
Response.Write "</table>"

'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing

'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
%>
</body>
</html>



NOMBRE DE RANGO: En el archivo Excel ( abierto ) defines el nombre de rango, osea, el rango de las celdas que estes usando.

1) Seleccionas todos los datos que tengas.
2) Menu INSERTAR
3) Seleccionas NOMBRE, Luego DEFINIR
4) Escribes el nombre que quieras
5) Picas en AGREGAR
6 ) Guardas el archivo

Última edición por AlZuwaga; 21/11/2002 a las 15:29