Выполнение SQL-запросов к таблице Excel в рабочей книге с помощью макроса VBA

Public Function GetRange(ByVal sListName As String) As String

Dim oListObject As ListObject
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook

For Each ws In wb.Sheets
    For Each oListObject In ws.ListObjects
        If oListObject.Name = sListName Then
            GetRange = "[" & ws.Name & "$" & Replace(oListObject.Range.Address, "$", "") & "]"
        Exit Function
        End If
    Next oListObject
Next ws


End Function

В вашем SQL-режиме это выглядит как

sSQL = "Select * from " & GetRange("NameOfTable") & ""

Я новичок, потрудился над чьим-то другим кодом, поэтому, пожалуйста, будьте снисходительны и исправляйте мои ошибки. Я пробовал ваш код и играл с помощью VBA. Следующие работали со мной:

Function currAddressTest(dataRangeTest As Range) As String

    currAddressTest = ActiveSheet.Name & "$" & dataRangeTest.Address(False, False)

End Function

Когда я выбираю аргумент источника данных для своей функции, он преобразуется в формат Sheet1 $A1: G3. Если excel изменяет его на таблицу1 [#All] ссылку в моей формуле, функция все еще работает правильно

Затем я использовал его в вашей функции (пытался воспроизвести и добавить еще один аргумент, который нужно ввести в WHERE...

Function SQL(dataRange As Range, CritA As String)

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim currAddress As String



currAddress = ActiveSheet.Name & "$" & dataRange.Address(False, False)

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 [" & currAddress & "]" & _
         "WHERE [A] =  '" & CritA & "'  " & _
         "ORDER BY 1 ASC"

rs.Open strSQL, cn

SQL = rs.GetString

End Function

Надеюсь, что ваша работа будет развиваться дальше, я считаю ее очень полезной. Приятного дня!

Просто отвечая на вторую часть вашего вопроса о получении имени листа, где находится таблица:

Dim name as String

name = Range("Table1").Worksheet.Name

Edit:

Чтобы сделать более понятным: кто-то предложил использовать Range на объекте Sheet. В этом случае вам не нужно; Диапазон, в котором находится таблица, может быть получен с использованием имени таблицы; это имя доступно во всей книге. Таким образом, Call Range работает хорошо.

Основываясь на рутине Джоан-Диего Родригес с подходом Хорди и некоторым кодом Яцека Котовского - эта функция преобразует любое имя таблицы для активной книги в полезный адрес для SQL-запросов.

Примечание для MikeL: добавление "[#All]" включает заголовки, избегающие проблем, о которых вы сообщали.

Function getAddress(byVal sTableName as String) as String 

    With Range(sTableName & "[#All]")
        getAddress= "[" & .Parent.Name & "$" & .Address(False, False) & "]"
    End With

End Function

Привет, недавно рассмотрел этот вопрос и имел проблемы со ссылкой на именованную таблицу (объект списка) в excel

если вы помещаете суффикс '$' в имя таблицы, все хорошо в мире

Sub testSQL()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    ' Declare variables
    strFile = ThisWorkbook.FullName

    ' construct connection string
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

    ' create connection and recordset objects
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    ' open connection
    cn.Open strCon

    ' construct SQL query
    strSQL = "SELECT * FROM [TableName$] where [ColumnHeader] = 'wibble';"

    ' execute SQL query
    rs.Open strSQL, cn

    Debug.Print rs.GetString

    ' close connection
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

нашел это, и это сработало для меня.

strSQL = "SELECT * FROM DataTable" 

'Где DataTable - это именованный диапазон

Как я могу запускать SQL-запросы в именованном диапазоне в листе excel?