Abrir hoja de Excel luego de Importarla con ASP

mardasangod · #1 (**permalink**) 18/03/2010, 10:04

Hola, tengo que hacer un sistema en ASP que importe una planilla de excel para luego pasarla a la base de datos. He podido importar la planilla desde el disco del cliente hacia una carpeta en el servidor, ahora tengo que abrir y leer esa hoja de excel, pero cuando ejecuto el metodo Workbooks.open se me cuelga ahi, y no se ejecutan las lineas siguientes, hasta tengo que cerrar el navegador para poder intentar nuevamente. Les pido que me ayuden, aqui les pongo el codigo que utilizo para abrir la planilla.

Set objXls = Server.CreateObject("Excel.Application")

objXls.Workbooks.Open "C:\Inetpub\wwwroot\intranetbsp\PruebaExcel\prospe ctos.xls" 'esta es la ruta en el servidor de donde se encuentra la planilla de excel, y cuando se ejecuta esta linea se cuelga.

Set objSheet = objXls.ActiveSheet

......

Myakire · #2 (**permalink**) 18/03/2010, 10:27

para abrir el excel y leerlo, solo ocupas tratarlo como si una tabla fuese:

Código ASP:

Ver original...
sSourceXLS = Server.MapPath(".") & "\ClientUploads\" & sNomXLS
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & sSourceXLS & ";" & _
               "Extended Properties=""Excel 8.0;HDR=YES;"""
        oConn.Open conStr
 
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open "Select * from [A1:Y1000] WHERE LTRIM(RTRIM(Barco))<>''", oConn, 1, 3
...

Esto es para archivos .xls, si fuera .xlsx es con esta cadena de conexión:

Cita:

Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+vNomFile+ ';Extended Properties="Excel 12.0;HDR=YES;"

saludos