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