Добрый вечер,

Есть база данных, из которой нужно по определенным условиям выгрузить данные в excel в определенные ячейки. Пример во вложении. Подскажите, пожалуйста, можно ли решить эту задачу обратившись к базе данных всего один раз? Например, загрузив данные в recordset, и уже из recordset эти данные выгружать в ячейки. Запрос из которого выгружаются данные большой и если всегда к нему обращаться, то процедура будет выполняться долго. Спасибо.

PredeclaredКонечно можно.

Проблема то в чем?

А подскажите, пожалуйста, как это можно сделать. Никак не могу сообразить как решить эту задачу

MrShin,

В вашем примере, как я понимаю он будет копировать всю таблицу и выгружать ее в ексель. Но задача состоит в том, чтобы выгрузить не всю таблицу а из таблицы взять только определенные значения и их выгрузить в определенные ячейки в ексель. Т.е. нужно вместо "xlSheet.Range("A1").CopyFromRecordset rst" написать какой то алгоритм, который будет из рекордсета брать данные и разносить их по ячейкам. Спасибо.

Я могу данные записать в рекордсет, но как из рекордсета их потом выгружать, не обращаясь к базе данных у меня не получается. Либо их выгружать таблицей, как предложил MrShin, либо макрос будет обращаться еще раз к базе данных.

На скрытый лист выгружать, чтобы потом растаскивать формулами, не хочется, потому что файл большой, он и так тормозит а если еще будет 150 формул, работающих с массивами, то excel наверное вообще ляжет. И формулы могут сбиться, хотя это и поправимо

Дергать рекордсет с фильтрами я пытался, но он, кажется, все равно обращается к базе данных, потому что получилось по времени столько же(очень долго), сколько если бы сразу обращаться к базе данных

Рекордсет открывается долго (секунды 2-3), при 150 значений получится 300 сек (5 мин)

Поэтому хочется всего один раз обратиться к рекордсету. Сейчас постараюсь сделать как предложил mds_world, записать рекордсет в массив и по нему уже раскидывать. Если нельзя работать с рекордсетом, то это значит самый правильный вариант. Спасибо.

Запрос из которого берутся данные состоит из множество запросов, которые тоже состоят из запросов. Поэтому он открывается немгновенно, хотя может я что то неправильно сделал и этот запрос можно оптимизировать.
Преимущество массива в том, что не нужно будет много раз обращаться к базе данных. Один раз обратившись к базе данных, запишим данные в массив и уже из массива будем брать данные и вставлять их в ячейки. Мне кажется, это должно получиться очень быстро.
А что значит записать результат во временную таблицу? Вы имеете в виду создать clone и с ним работать?

Если все время открывать рекордсет, то получится долго, поэтому его хотелось бы открыть всего один раз. И как можно брать данные из рекордсета если его не фильтровать? Рекордсет состоит из 5 столбцов и 200 строк(4 столбца условия, по которым отбирается значение и один столбец само значение), как можно без фильтрации выбрать нужную строку и из нее вставить значение?

Вы имеете в виду, что нужно добавить столбец, который объеденит все критерии в один и по нему уже искать значение? Надо посмотреть метод ADODB.Recordset.Find может это выход из ситуации. Спасибо.

А подскажите, пожалуйста, почему если я в коде добавляю clone, то код перестает работать? Я заменил всего лишь одну строчку Set rs = connDB.Execute("Select * from " & sTable) на две строки. Спасибо.

Set rs1 = connDB.Execute("Select * from " & sTable)
Set rs = rs1.Clone

Хотел создать клона вместо временной таблицы, подумал, что так проще а работать будет одинаково. Сейчас тогда поизучаю как создавать временные таблицы и вносить туда данные из рекордсета) Мне кажется этот способ будет проще, чем создавать дополнительные поля с ключом. И пока нет уверенности, что find будет быстро работать. Мне кажется он все равно будет обращаться к базе данных

Спасибо. Сейчас попытаюсь протестировать) просто это займет много времени и не хотелось его тратить в пустую.

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

sSq1 = a & B & Sheets("Sheet1").Range("K1") & Sheets("Sheet1").Range("N1")
rs.Find "[key] = '" & sSq1 & "'"
If Not rs.EOF Then
Sheets("Sheet1").Cells(4 + i, 1 + i1) = rs.Fields("Value1")
End If