Leer un archivo excel con asp y luego...

Alice · #1 (**permalink**) 29/03/2007, 15:49

Hola amigos:

ojala me puedan ayudar, necesito saber como leer un archivo excel desde asp. Este archivo posee en una de sus columnas las rutas de unas imagenes a las cuales necesito accesar, ademas de eso luego de leer el archivo excel debo grabarlo en una tabla sql

es algo como esto

nombre folio imagen
juan perez 4 c:/imagenes/imagen1.jpg
pedro lopez 8 c:/imagenes/imagen3.jpg
.
.
.

Alguien me puede ayudar con el codigo por favor?

Gracias

Shiryu_Libra · #2 (**permalink**) 29/03/2007, 19:15

te servira este enlace

suerte

Shiryu_Libra · #3 (**permalink**) 29/03/2007, 19:32

bueno.... basicamente lo usarias asi...
copy paste.. para que lo intentes y ya despues lo transformas a lo que ocupas... sale

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body><%

'Asigna a la variable Path, la ruta del archivo *.xls
Path=Server.MapPath("base.xls")

'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")

'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path

'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")

'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado.
rsVac.Open "Select * From A1:B6 order by Oficina, Nombre", ConexionBD,3,3 

'Nos posicionamos al principio del recordset, por cualquier cosa
rsVac.MoveFirst

EN ESTA PARTE UTILIZARIAS TANTOS FIELDS COMO TENGAS EN TU HOJA DE EXCEL, SALE

'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
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(6).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(6) & "</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>

nuevamente, espero que sea lo que ocupabas.
suerte

Alice · #4 (**permalink**) 30/03/2007, 06:45

oky gracias por tu ayuda , lo revisare