devxlogo

Open Excel Sheet Data as a Recordset Using ADODB

Open Excel Sheet Data as a Recordset Using ADODB

 '****************************************************'Written By KNR'Excel Sheet Reading'Read Excel File Using ADO'You can use Microsoft EXCEL Driver'****************************************************Public Function Read_Excel(ByVal sFile As String) As ADODB.Recordset      On Error GoTo fix_err      Dim rs As ADODB.Recordset      Set rs = New ADODB.Recordset      Dim sconn As String      rs.CursorLocation = adUseClient      rs.CursorType = adOpenKeyset      rs.LockType = adLockBatchOptimistic      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile      rs.Open "SELECT * FROM [sheet1$]", sconn      Set Read_Excel = rs      Set rs = Nothing      Exit Functionfix_err:      Debug.Print Err.Description + " " + _                  Err.Source, vbCritical, "Import"      Err.ClearEnd Function

devx-admin

Share the Post: