Executando consultas SQL em uma tabela do Excel dentro de uma pasta de trabalho com macro VBA
Eu estou tentando fazer uma macro do excel que me dará a seguinte função no Excel:
=SQL("SELECT heading_1 FROM Table1 WHERE heading_2='foo'")
Permitindo-me para pesquisar (e talvez até mesmo inserir) dados em minhas tabelas de trabalho usando consultas SQL.
Foi o que eu fiz até agora:
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
Meu script funciona como um charme com intervalos codificados, como o do snippet acima. Também funciona muito bem com intervalos nomeados estáticos.
No entanto, ele não funcionará com intervalos nomeados dinâmicos ou NOMES DE TABELA, o que é o mais importante para mim.
O mais próximo que encontrei de uma resposta é esse cara sofrendo da mesma aflição:http://www.ozgrid.com/forum/showthread.php?t=72973
Ajudar alguém?
Editar
Eu cozinhei isso até agora, então eu posso usar o nome resultante em minhas consultas SQL. A limitação é que preciso saber em qual folha as tabelas estão. Podemos fazer algo sobre isso?
Function getAddress()
myAddress = Replace(Sheets("Sheet1").Range("Table1").address, "$", "")
myAddress = "[Sheet1$" & myAddress & "]"
getAddress = myAddress
End Function
Obrigado!