' Open Excel Connection
    Set cnnExcel = Server.CreateObject("ADODB.Connection")
    cnnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & strExcelFile & ";" & _
               "Extended Properties=""Excel 8.0;HDR=NO;"""

    Response.Write "Excel connection opened<BR>"

    ' Load ADO Recordset with Excel Data
    Set rstExcel = Server.CreateObject("ADODB.Recordset")
    rstExcel.Open "Select * from [Sheet1$A1:B5]", cnnExcel, adOpenStatic 

    Response.Write "Excel Recordset loaded<BR>"
   

0 comments: