Question

VB（不是VBA）如何用ADO连接到EXCEL表格取数据？

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;"
这个连接可以连接成功，但是下面这句就过不去了
rs.Open "select * from ["& ExcelName & "]",3,3
（ExcelName就是Book1.xls）
出现提示Microsoft Jet database engine could not find the object' Book1.xls',下面的意思就是请确认文件存在和路径正确。

我确认文件在C盘存在，路径也正确啊，请大侠帮忙，本人对SQL语言不是很熟。
rs.Open "select * from ["& ExcelName & "]",conn,3,3
刚才打的太快了，上面漏了conn连接，但是这句也是过不去的。

Answer 1

conn.Open 里面已经用了Book1.xls，相当于数据库，EXCEL里面的sheet1是对应数据库的表
ExcelName="Sheel1$"就可以了

追问

请问大侠，我EXCEL中的数据表格名称如果不是固定的，假如今天是sheet1,明天是sheet2，那我怎么来抓取这个表格名称啊？谢谢

追答

那是另一个问题，一事一议，需要重新开帖子，没分都可以

追问

OK

Answer 2

“select * from [sheetname$]", sheetname是工作表名+$

追问

工作表名，我的工作表就是Book1.xls，加上$就出来提示说Book1.xls$是非法名称。
我的不是VBA啊，是VB，谢谢。

Answer 3

rs.Open "select * from ["& ExcelName & "]",3,3这句不对
应该是：rs.open "select * form 工作表名",conn,3,3

Answer 4

rs.Open "select * from "& 工作表名 & "",conn,3,3