Загрузка из Excel только отфильтрованных значений #616100

Добрый день. Помогите разобраться. Есть файл excel 2007  в нем настроен фильтр по колонке. Не могу понять как получить именно те данные которые отфильтровал excel. Пока что пришлось перебирать все строки и отлавливать нужные с помощью условия. Пример кода:

считать всю область через COMSafeAray в ТЗ и наложить через запрос отборы из фильтра

через оле получаем значение фильтра - это и будет массив отфильтрованных значений

DrShad, есть метод который позволяет выгрузить в тз всю область? Или в цикле заливать все записи в тз?

smaharbA через OLE и запросом RecordSet-у можно сделать выборку. Но меня интересует как через ком объект Excel.Application можно обойти циклом результат фильтрации Excel`а

в все написано

для восьмерки элементарно про всю область Область=Лист.UsedRange; Массив=Область.Value;

автор с автофильром еще и не сообразил ? если это автофильтр Автофильтр=Лист.AutoFilter; Область=Лист.Range; с фильтрами и прочим скрытием точно так же

Вариант с автофильтром не возвращает данных

да ну на

Если делаю Лист.UsedRange.Value получаю массив всей области. Если Лист.AutoFilter.Range.SpecialCells.Value то возвращает массив с названиями колонок

В не автофильтр, в исправился

SpecialCells и не нужен, просто AutoFilter.Range.Value В справке к VBA так и написано: Use the AutoFilter property to return the AutoFilter object. Use the Filters property to return a collection of individual column filters. Use the Range property to return the Range object that represents the entire filtered range

Хорошо делаю Лист.AutoFilter.Range.Value и получаю аналогичный результат если бы написал Лист.UsedRange.Value

Для Каждого Область Из Области как то так, не адинеснег и тем боле восьмерку не знаю

нужен, иначе получишь всю область неофильтрованную

я уж понял что без SpecialCells т.к. число 12 = xlVisible т.е те области которые видим

Тогда вот так: Лист.AutoFilter.Range.Offset.Resize(Лист.AutoFilter.Range.Rows.Count-1).SpecialCells.Value

в наверняка рабочий код, но вытянет и заголовок автофильтра ибо универсально для областей со скрытыми любым способом ячеейками - будь то фильтр, автофильтр, ручное скрытие, группировки и т.д.

Спасибо всем за помощь, разобрался