Code: Select all
objConnection := ComObjCreate("ADODB.Connection")
objRecordSet := ComObjCreate("ADODB.Recordset")
dataSource := A_ScriptDir . "\swsr123.xlsm"
objConnection.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='"
dataSource "';Extended Properties='Excel 12.0 Macro;HDR=No;IMEX=1';")
adOpenStatic := 1
adLockOptimistic := 1
adCmdText := 1
sqlstr := "Select * FROM [Data$] where f1 Like '%abcd efg123%'"
try objRecordset.Open(sqlstr, objConnection, adOpenStatic,
adLockOptimistic)
catch e{
MsgBox, 执行select查询出错!
return
}
rn := objRecordset.RecordCount
MsgBox, Excel中搜索到的记录数rn= %rn%
objRecordset.close
objConnection.Close
return