Выбор данных из Access в Excel

Posted by obzor under Basic, Софт

Нужно из таблицы в Access выбрать данные по определенным условиям и вставить их в определенные ячейки в Excel. Данных, которые нужно выбрать очень много, поэтому хотелось бы записать данные в рекордсет и потом через него выбирать данные по критериям.

connDB.ConnectionString = «Provider=Microsoft.ace.oledb.12.0; data source=» & Path
connDB.Open
Set rs = connDB.Execute(«Select * from » & Table)
Range(«A1»).CopyFromRecordset rs

Подскажите, можно ли вместо CopyFromRecordset написать условия, по которым будут выбираться данные и вставлять в определенные ячейки в Excel?

Aleksandr H.

Согласно заданию с екселя и данных таблицы, код похожий на Ваш

Public Sub test_db()
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" &
        ActiveWorkbook.Path & "\Table.accdb; Jet OLEDB:Database;"
    Dim con As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim sSql As String
    Dim sht 'As Worksheets
    con.Open connectionString
    On Error GoTo errLabel
    Set sht = Sheets(1)
    sSql = "Select sum(Value1) FROM Table1 WHERE (" & _
            "Condition1='" & sht.Range("B5") & "' and " & _
            "Condition2='" & sht.Range("G1") & "' and " & _
            "Condition3='" & sht.Range("K1") & "' and " & _
            "Condition4='" & sht.Range("N1") & "');"
    Debug.Print sSql
    rst.Open sSql, con
    If Not rst.EOF Then
        sht.Range("B1") = rst.Fields(0).Value
    Else
        MsgBox ("NO DATA")
    End If
    con.Close
    Exit Sub
errLabel:
    con.Close
End Sub

тема на форуме

Похожие статьи

• Работа с файлом через макросы (Microsoft Office Excel)
• Поиск разрыва страницы Delphi VBA Excel
• Выделение цветом нескольких фрагментов текста
• Как в операторе автофильтра указать, что выбираются выбираются все значения, кроме нуля?
• Макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения
• Удалить кривую из графика
• Удаление пустых столбцов в таблице
• Определить в последовательности a1, a2, …, an количество положительных и количество отрицательных элементов
• Вывод данных в textbox
• Как макросом брать данные с word документов в excel?