Could Not Fine Installable Isam Follow
I'm new to VB Scripting and on the below code I get an: Could not find installable ISAM error. I looked on the Internet and it said something about the path where the file is located but it is correct.
strLab = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ='C\My Documents\Testdata.xls';Extended Properties=""Excel 2013;HDR=YES;"""
Set objLab = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rs = objLab.Execute("Select * FROM [Sheet1$]")
strIMEI = ""
do while Not rs.EOF
strIMEI = strIMEI + CStr( rs.fields("IMEI")) + vbCrLf
★ BarTender Hero ★
Please sign in to leave a comment.