Фильтрованный recordset в excel копируется нефильтрованным

[Костя]

rs.filter = "дата_время > '11-фев-2005'"
xlSheet.Range("a2", "h2").CopyFromRecordset rs

В результате rs копируется в нефильтрованном виде, хотя в DataGrid'е после
set datagrid.datasource = rs
всё нормально (отображается отфильтрованный rs).
Если копировать через цикл (for i = 1 to rs.recordcount, и внутри цикла в каждую ячейку записывать значение), то тоже всё записывается нормально, но это же корявый способ! Никто не знает, в чём дело?

[alibek]

Советую задавать дату в формате #yyyy/mm/dd#.

[Костя]

Дело не в дате. Когда я фильтрую другие колонки, где числа (формат number), наблюдается то же самое.

[Konst_One]

клонируй его , а уже потом отправляй в эксель

Код: Выделить всё

rs.filter ....
set rs1=rs.clone
xlSheet.Range("a2", "h2").CopyFromRecordset rs1


[Костя]

Не помогло! То же самое!

[Rainbow]

Так не получится
Свойство Filter - это заморочки клиентского курсора. На самом деле данные из рекордсета никуда не деваются. Поэтому успешно копируются.

Я вижу 2 варианта:
1) использовать настоящую кверю для копирования данных в Excel: http://support.microsoft.com/kb/q295646/
2) если данных в самом рекордсете очень много, а после фильтрации получается мало, и через запрос не хочется, то использовать метод GetRows (он вернет 2-мерный массив - в первом столбце данные, во втором - номер записи) и проходиться потом уже по этому массиву:

Код: Выделить всё

rs.Filter...

Dim v as Variant
v = rs.GetRows(rs.RecordCount)

Dim i as long
For i = LBound(v, 2) To UBound(v, 2)
      'поехали копировать v(0, i)
Next