Con esa cadena de conexión, vas a leer el Excel directamente como si fuera una tabla.
Código:
sSourceXLS = Server.MapPath(".") & "\Excel\RollosCosteados.xls"
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
Dim oRS
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open "Select * from [Rollos$A1:Y1000]", oConn, 1, 3
Como supondrás, ya teniendo el excel en un RecordSet, todo lo siguiente es "cortar y coser"
