使用VBA宏在工作簿中的Excel表上执行SQL查询

Question

我正在尝试制作一个Excel宏，它将在Excel中为我提供以下功能：=SQL("SELECT heading_1 FROM Table1 WHERE heading_2='foo'")允许我使用SQL查询在工作簿的表中搜索（甚至插入）数据。到目前为止，这是我所做的：Sub SQL()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetstrFile = ThisWorkbook.FullNamestrCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"Set cn = CreateObject("ADODB.Connection")Set rs = CreateObject("ADODB.Recordset")cn.Open strConstrSQL = "SELECT * FROM [Sheet1$A1:G3]"rs.Open strSQL, cnDebug.Print rs.GetStringEnd Sub我的脚本像带有硬编码范围的超级按钮一样工作，例如上面的代码片段中的那个。它也可以与静态命名范围一起很好地工作。但是，它对动态命名范围或对我来说最重要的表名都不起作用。我发现的最接近答案的是这个人遭受同样的折磨：http ://www.ozgrid.com/forum/showthread.php?t= 72973帮助任何人？编辑到目前为止，我已经煮熟了，然后可以在SQL查询中使用结果名称。限制是我需要知道表格在哪张纸上。我们可以做些什么吗？Function getAddress()    myAddress = Replace(Sheets("Sheet1").Range("Table1").address, "$", "")    myAddress = "[Sheet1$" & myAddress & "]"    getAddress = myAddressEnd Function谢谢！

Answer 1

您可能能够做的一件事就是获取动态命名范围的地址，并将其用作SQL字符串中的输入。就像是：

Sheets("shtName").range("namedRangeName").Address

它将吐出一个地址字符串，例如 $A$1:$A$8

编辑：

正如我在下面的评论中所说，您可以动态获取完整的地址（包括工作表名称）并直接使用它，也可以解析工作表名称以供以后使用：

ActiveWorkbook.Names.Item("namedRangeName").RefersToLocal

结果是类似的字符串=Sheet1!$C$1:$C$4。因此，对于上面的代码示例，您的SQL语句可能是

strRangeAddress = Mid(ActiveWorkbook.Names.Item("namedRangeName").RefersToLocal,2)

strSQL = "SELECT * FROM [strRangeAddress]"