Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 Запрос SQL из данных в Excel  [new]
Newman17
Member

Откуда:
Сообщений: 1
Добрый всем день!
Интересует такой момент. Можно ли в Excel собрать SQL запрос используя данные из самого Excel. Пример: Есть лист, на котором таблица заполняется с помощью SQL запроса. На соседнем листе есть ячейка, в которой хранится дата. Запрос должен выполняться используя эту дату из соседнего листа, без прямых манипуляций с самим запросом (как стандартная формула)
13 мар 21, 18:02    [22294033]     Ответить | Цитировать Сообщить модератору
 Re: Запрос SQL из данных в Excel  [new]
big-duke
Member

Откуда:
Сообщений: 6801
Newman17,

ADODB вам в помощь
Sub QuerySheet()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strFile As String, strCon As String, strSQL As String
    Dim paramDate As String
    
    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open strCon
    
    paramDate = Worksheets("Лист2").Range("A1")
    
    strSQL = "SELECT * FROM [Лист1$A1:B5] WHERE [Дата]>=CDate('" & paramDate & "')"
    
    rs.Open strSQL, cn
    
    Debug.Print rs.GetString
End Sub
15 мар 21, 11:04    [22294539]     Ответить | Цитировать Сообщить модератору
 Re: Запрос SQL из данных в Excel  [new]
HandKot
Member

Откуда: Sergiev Posad
Сообщений: 3041
Newman17,

или как написано тут
Customize a parameter query
17 мар 21, 08:14    [22295968]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить