Buenas becode,
espero que este codigo te ayude:
Código:
Cita: Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open Ruta
Set objSheet = objXls.ActiveSheet
'Fila 2 para saltar los titulos
FilExcel = 2
'Loop para todas las filas del fichero excel
Do While Trim(objSheet.Cells(FilExcel,1).value) <> ""
'Recuperamos todos los datos por cada fila y columna
IdContrato = objSheet.Cells(FilExcel,1).Value
Fecha = objSheet.Cells(FilExcel,2).Value
Loop
objXls.Workbooks.Close
Set objXls = Nothing
Decirte que para realizar esto necesitas tener instalado el Excel en el servidor que corra la pagina asp.