我正在尝试制作一个Excel宏,它将在Excel中为我提供以下功能:
=SQL("SELECT heading_1 FROM Table1 WHERE heading_2='foo'")
允许我使用SQL查询在工作簿的表中搜索(甚至插入)数据。
到目前为止,这是我所做的:
Sub SQL()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
strFile = ThisWorkbook.FullName
strCon = "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 strCon
strSQL = "SELECT * FROM [Sheet1$A1:G3]"
rs.Open strSQL, cn
Debug.Print rs.GetString
End Sub
我的脚本像带有硬编码范围的超级按钮一样工作,例如上面的代码片段中的那个。它也可以与静态命名范围一起很好地工作。
但是,它对动态命名范围或对我来说最重要的表名都不起作用。
我发现的最接近答案的是这个人遭受同样的折磨:http ://www.ozgrid.com/forum/showthread.php?t= 72973
帮助任何人?
编辑
到目前为止,我已经煮熟了,然后可以在SQL查询中使用结果名称。限制是我需要知道表格在哪张纸上。我们可以做些什么吗?
Function getAddress()
myAddress = Replace(Sheets("Sheet1").Range("Table1").address, "$", "")
myAddress = "[Sheet1$" & myAddress & "]"
getAddress = myAddress
End Function
谢谢!
HUWWW
相关分类