Выбор данных из access в excel

[Bregra]

Здравствуйте,

Подскажите, пожалуйста, как решить задачу. Нужно из таблицы в 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.]

Какой ответ Вы хотите получить на свой "не совсем сформулированный" вопрос?

поэтому хотелось бы записать данные в рекордсет

можно ли вместо CopyFromRecordset написать условия

ответ будет такой-же: можно, наверное, смотря какие данные по каких условиях.

[Bregra]

В Recordset будет скопировано таблица из access, состоящая из 5 столбцов, 4 столбца это условия а 5 столбец значение. Условия будут записаны в ячейки в excel. Например A1="Условие1", B2="Условие2", U1="Условие3", S9="Условие4". Нужно в макросе написать что если столбец1 в рекордсет равен ячейки А1 и столбец2 в рекордсет равен ячейки B2 и столбец 3 в рекродсет равен U1 и т. д., то в ячейку В1 выводится значение из столбца 5 в рекордсете. И таких значений, которые нужно будет получить будет 150 Спасибо.

[Aleksandr H.]

Уже светлее. Осталось только прикрепить архив с базой таблицы и ексель куда должно вставляться, и 2-3 примера что должно получиться, и можно что-то думать

[Bregra]

Во вложении в access таблица в ней 4 условия и значение которое нужно получить. В excel файле на 1 листе разбросаны условия по которым нужно в ячейку B1 вывести значение. Если делать через select

cn.ConnectionString = "Provider=microsoft.ace.oledb.1 2.0; data source=" & Path
cn.Open
A = "select sum([myValue]) from Table where ([Condition1]= "A2" and [Condition2]= "B2" and [Condition3]= "C1" and [Condition4]= "D2" )"
Cells(1,2) = cn.Execute(A).GetString

То так как значений которые нужно получить 150, то операция выполняется долго. Можно ли, например, как то загнать все данные в recordset и из него уже по условиям выбирать данные.
Нужно получилить значение в ячейку В1 по условиям, что Condition1=A2, Condition2=B2, Condition3=C1, Condition4=D2. Предполагается, что условия по которым будет выбираться значение будет выполняться через цикл. Спасибо.

[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

[Bregra]

Спасибо. А скажи, пожалуйста, если я
"Condition1='" & sht.Range("B5") & "' and " & _
"Condition2='" & sht.Range("G1") & "' and " & _
"Condition3='" & sht.Range("K1") & "' and " & _
"Condition4='" & sht.Range("N1") & "');"
сделаю через цикл, в вашем коде, он каждый раз будет открывать базу данных и искать нужное значение? Я вопрос к тому задаю, что если он будет каждый раз обращаться к базе данных, то процесс будет очень долгим, потому что нужно выгрузить очень много данных

[Aleksandr H.]

Я не знаю.Ну набей какую-то тестовую таблицу, запустим в цикле и посмотрим что получается? Зачем думать как будет, быстро-медленно, если можно попробовать?

[Bregra]

Cпасибо. Я попытался изменить код, во вложении пример, и сделать цикл, но почему то, он находит только первое значение, которое нужно найти, потом все время его использует. А во вторых, он вроде бы все время обращается к базе когда ищет значение. А если если база большая, и таблица к которой он обращается это запрос, состоящий из многих запросов, то такой цикл будет торомозить. Подскажите, пожалуйста, почему в вашем измененном коде, макрос находит только первое значение, другие значения он потом не ищет. Спасбио.


Public Sub test_db()
connectionString = "Provider=Microsoft.ACE.OLEDB.1 2.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
For i = 1 To 24
A = Sheets("Sheet1").Cells(4 + i, 1)
For i1 = 1 To 24
B = Sheets("Sheet1").Cells(4, 1 + i1)
sSql = "Select sum(Value1) FROM Table1 WHERE (" & _
"Condition1='" & A & "' and " & _
"Condition2='" & B & "' and " & _
"Condition3='" & Sheets("Sheet1").Range("K1") & "' and " & _
"Condition4='" & Sheets("Sheet1").Range("N1") & "');"
rst.Open sSql, con
If Not rst.EOF Then
Sheets("Sheet1").Cells(4 + i, 1 + i1) = rst.Fields(0).Value
End If
Next
Next
con.Close
Exit Sub
errLabel:
Resume Next
End Sub

[Андрэич]

rst.MoveNext

???