devxlogo

Open Excel Sheet Data as a Recordset Using ADODB

Open Excel Sheet Data as a Recordset Using ADODB

Why Trust Us 
 '****************************************************'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
See also  Professionalism Starts in Your Inbox: Keys to Presenting Your Best Self in Email
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
View Author
Show More