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


Make a website for free Webnode