如何用EXCEL做为数据源？

Question

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　　　　　 "Data Source=" & App.Path & "\Book1.xls;" & _
　　　　　　　　　 "Extended Properties=""Excel 8.0;HDR=Yes;"";"

Answer 1

thank you !另外，Extended Properties 是什么意思？

Answer 2

试了一下，但到了 rs=oConn.Execute("Select * From Sheet1") 这一步总提示找不到"Sheet1"(工作表的名字没错，是Sheet1)

Answer 3

ybcaa的"sheet1"是工作表名，不是数据表名，应写成"sheet1$"：
conExcel.Open "provider=Microsoft.jet.oledb.4.0;Data source=" & App.Path & "\book1.xls;Extended Properties=Excel 8.0;" '打开excel数据库
    Set rsExcel = New ADODB.Recordset
    rsExcel.Open " Select * FROM [sheet1$]", conExcel, adOpenForwardOnly, adLockReadOnly

Answer 4

对！但要把adOpenForwardOnly, adLockReadOnly
改成adOpenDynamic, adLockOptimistic