Rainbow » 17.02.2005 (Чт) 17:56
Так не получится
Свойство 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
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)