使用SQL查询MS Excel表

Question

我发现此代码使用sql查询MS Excel表。但是，当我运行它时，我收到一条消息，指出无法找到对象“Sheet5 $”。我正在运行代码的工作簿的工作表5上有一个名为“Table”的表。

如何让此代码正常工作

'Reference: Microsoft ActiveX Data Objects x.x Library
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Not the best way to refer to a workbook, but convenient for
'testing. it is probably best to refer to the workbook by name.
strFile = ActiveWorkbook.FullName

'Connection string for 2007/2010
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
         & ";Extended Properties=""Excel 12.0 xml;HDR=Yes;"";"

cn.Open strCon


'SQL query string
sSQL = "SELECT * FROM [Sheet5$]"
rs.Open sSQL, cn