Мне кажется, что эта строка имеет проблему:

arrFilter(intFilter - 1) = Range("B1").AutoFilter.Filters(f)

Вы пытаетесь в массив Variant (кстати, не Object) внести фильтр (object) с индексом f, но вы этот объект не создаете (не вижу Set). Вот object и требуется. Но почему тогда вы object (недосетенный) засовываете в variant?

Так тип массива не совпадает с типом того, что вы хотите в него вносить, а то, что вы хотите вносить (а именно фильтр), еще и не фильтр даже. Там нет Set и/или нет декларации As Filter.

Или вы не хотите вносить фильтр, а хотите вносить его какие-то атрибуты? Тогда ваш код не отражает ваших намерений. Вот это вот:

Range("B1").AutoFilter.Filters(f)

есть ссылка на определение фильтра. Но так ее не используют. Надо бы Dim objF as Filter, Set objF = Range("B1").AutoFilter.Filters(f). Ну и так далее, если вы конечно хотите вносить фильтр, а не его свойства. Я не знаю, что вы хотите, т.к. ваш код противоречит вашему вопросу. Я не знаю, что вы имеете ввиду.

Вот посмотрите, Игорь Горбонос в сущности спрашивает вас о том же самом. Вот как он не видит, где нужно ставить мягкие знаки после шипящих (3й класс начальной школы), так вы не видите, где нужно вводить объекты в явном виде (если это требуется, конечно, что в вашем случае еще не факт).

Если у меня будет время, я попробую написать для вас работающий код.

Успехов

vladconn

Вот сделал пример, который собирает в массив свойство Criteria1 всех задействованных фильтров. Обратите внимание: поскольку свойство Criteria1 имеет тип Variant, то и массив их значений тоже Variant, и только лишь поэтому.

Обратите также внимание на If Not objWsht.AutoFilter Is Nothing Then. Это на случай, если на листе нет вообще AutoFilter, не установлен. Попробуйте убрать эту строку и прогнать код без всякого AutoFilter на листе. Посмотрите на сгенерированную ошибку, что она вам скажет.

Успехов.

Тогда вам вообще он не нужен. Соединитесь с ADO, напишите SELECT DISTINCT, и вперед.

Konst_Oneну так поставаьте так:



И дальше что? Кто будет править датским королевством? Кто скажет вам, каков у вас приход? И сколько всадников не спит у вас в дозоре? Кто перепись ведет? Кто скажет, сколько новых душ должно родиться, а сколько отлететь? А королевство датское - от моря и до моря.

dd44Уважаемый VladConn,
а можно ли через оператор Count получить количество вариантов в каждом фильтре, например Filters.Count, или то выдаст только количество столбцов в которых есть фильтр?

Не думаю. Там кол-во столбцов. И Count - не оператор, а свойство. Вам, в сущности, надо знать, сколько уникальных значений содержится в каждом столбце. Ведь так? Ну так это SELECT DISTINCT.

Но я посмотрю, можно ли удобно обойтись без SELECT DISTINCT исключительно фильтром.

vladconn