conn.Open 里面已经用了Book1.xls,相当于数据库,EXCEL里面的sheet1是对应数据库的表
ExcelName="Sheel1$"就可以了
“select * from [sheetname$]", sheetname是工作表名+$
rs.Open "select * from ["& ExcelName & "]",3,3这句不对
应该是:rs.open "select * form 工作表名",conn,3,3
rs.Open "select * from "& 工作表名 & "",conn,3,3