用 EXCEL 表做数据源

Question

我想用一个EXCEL 工作表做数据源，但发现要找其中的某一条记录确实太难了，我某前的做法是循环，一直到找到这一条记录为止。请问哪位老兄有更好的解决办法？

Answer 1

用ADO直接读写Excel:
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Open "C:\Book1.xls"
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
    '....
    oRS.Find ....
    '....
    oRs.Close
    .Close
End With