Добрый день. Не поможет ли кто нибудь в решении проблемы.
В листе Excel Имеется колонка с датами в формате dd.mm.yyyy.
Мне необходимо програмно поставить фильтр по дате. Я запустил
макрорекордер, поставил фильтр и получил следующий код:

Selection.AutoFilter Field:=7, Criteria1:=">01.07.04", Operator:=xlOr, _
Criteria2:="="

Однако если тут же попробовать выполнить этот макрос, то фильтр устанавливается но не работает. Но если войти в свойства фильтра "условие" и не редактируя его просто снова ввести то-же самое (просто Enter), то все работает уже правильно.
Заранее благодарен за советы\предположения.

Спасибо за совет. Попробовал, не работает.

Я указал только последнюю часть кода вот полностью:

Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<01.07.2004"

Без второго условия то же не работает.
Тут же возник другой вопрос, я работаю с данными в именованных листах Excel выгруженных из некоей БД.
При подготовке отчетов мне оказалось удобно работать Select-ами через ADODB

Set oconnection = CreateObject("ADODB.Connection")
oconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(ActiveWorkbook.FullName) + ";Extended Properties=""Excel 8.0;HDR=NO"""
sqltext = "Select * from ..."
Set oRS = oconnection.Execute(sqltext)

Можно использовать временный лист для промежуточных вычислений и т.д.

А могу ли я использвать команду delete from, insert точно работает, а на delete ругается "неопознанная ошибка"

sqltext = "delete from RangeName1" - не срабатывает
Может я переврал синтаксис этого оператора в MS SQL Jet.