connecting excel as a database
13/06/2011 14:45
Set con = createobject("adodb.connection")
Set rec = createobject("adodb.recordset")
con.Provider = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=Excel 8.0"
con.Open "D:\Book1.xls"
rec.Open "select * from [Sheet1$]",con,1
While rec.EOF <> True
msgbox rec.Fields("a")
rec.MoveNext
Wend