Выполнение SQL-запросов к таблице Excel в рабочей книге с помощью макроса VBA
Я пытаюсь сделать макрос 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
Спасибо!