Could Not Fine Installable Isam
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.
dim objLab
dim strLab
strLab = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ='C\My Documents\Testdata.xls';Extended Properties=""Excel 2013;HDR=YES;"""
dim strIMEI
Set objLab = CreateObject("ADODB.Connection")
objLabOpen strLab
Set rs = CreateObject("ADODB.Recordset")
Set rs = objLab.Execute("Select * FROM [Sheet1$]")
strIMEI = ""
rs.MoveFirst()
do while Not rs.EOF
strIMEI = strIMEI + CStr( rs.fields("IMEI")) + vbCrLf
rs.MoveNext()
loop
value-strIMEI
-
Never mind I figured this one out myself it's"
str.conn = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source='C:\My Documents\Testdata.xls';Extended Properties=""Excel 12.0 Xml;HDR = YES;""
0
Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.
Kommentare
1 Kommentar