'cnexcel.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; Excel 2.1;DBQ=" & filepath & "; "
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & filepath & "; Extended Properties=""Excel 8.0;"""
strSQLEx = "Select * From [" & sheetName & "$]"
RSExcel.Open strSqlEx,cnExcel
|