Привет всем!
Посмотрел кучу топиков, но ответа так и не нашел, по-этому прошу помощи :(

Set recSet = cmd.Execute
recCnt = recSet.RecordCount (=85)

recSet.Filter = "DispatchGroup LIKE '*21200*'"
recCnt = recSet.RecordCount (=1)

Set recSet1 = recSet
recCnt = recSet1.RecordCount (=1)

бла-бла-бла

ws.Range("A2").CopyFromRecordset recSet
ws1.Range("A2").CopyFromRecordset recSet1

В обоих случаях в Excel добавляется 85 строк :(
Кто знает, что за хрень или что я делаю криво?

Согласен, есть такое дело :( Тогда можно так:
Set recSet = cmd.Execute
Set recSet1 = recSet.Clone
recSet1.Filter = "DispatchGroup LIKE '*21200*'"
Тогда recSet.RecordCount будет =85, а recSet1.RecordCount будет =1

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

P.S. запускать два раза cmd.Execute погано, там тяжелая процедура на серваке запускается, много ресурсов жрет.

Смотрю в MSDN 6 и вижу там:

Microsoft Excel 97 for Windows


SYMPTOMS
When you use Microsoft Data Access Objects version 3.0 (DAO 3.0) with Microsoft Excel 97, you may receive the following error message:


Run-time error '430':
Class doesn't support Automation

CAUSE
You will receive the error message given above if both of the following are true:

You are referencing the DAO 3.0 object library.


-and-

You are using the CopyFromRecordset method in your macro.

RESOLUTION
Change your project in Microsoft Excel 97 so that it references DAO 3.5 instead of DAO 3.0:


In the Visual Basic Editor, click References on the Tools menu.

Clear the "Microsoft DAO 3.0 Object Library" check box.

Select the "Microsoft DAO 3.5 Object Library" check box and click OK.

STATUS
This is by design of Microsoft Excel 97.

Это правда про DAO, но может поможет.

У меня Access2002 SP2

Ну так что, есть желающие подсказать как из одного рекордсета выборку в другой рекордсет можно было сделать, что-бы потом его в Excel с помощью CopyFromRecordset слить?

Или такой вариант: как бы создать рекордсет на основе выборки из другого рекордсета.

Думал об этом. Видимо прийдется так и сделать. Хотя жалко, я надеялся, что сам рекордсет как-нибудь колбасить можно. :(

Убого блин :( по идее рекордсет это ведь набор записей, считай таблица. Кайфово бы к нему и обращаться, как к таблице можно было. Это они там не додумали :(