strName = App.Path & "\book.xls" 'EXCEL文件名
strSheetName = "Sheet1" '工作表名
Set ConnExcel = New ADODB.Connection
Set rsExcel = New ADODB.Recordset
ConnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False;Data Source=" _
& strName & "; Extended Properties='Excel 8.0;HDR=Yes'"
strSQl = "select * from [" & strSheetName & "$]"
rsExcel.Open strSQl, ConnExcel, adOpenKeyset, adLockReadOnly
运行到这里时提示：实时错误'-2147217865(80040e37)':
Microsoft Jet 数据库引擎找不到对象 'Sheet1$'。请确定对象是否存在，并正确地写出它的名称和路径。
这是为什么？
这种用法在 ACCESS 的VBA里面是可以使用的。还有去掉$ 则提示找不到'Sheet1'，加单引号则提示找不到''Sheet1''。