Зачем это приводило к ошибке при последующих запусках?

Question

У меня есть код последующих в приложении VB6, что создает электронную таблицу Excel:

wrksh.Range("F4:F" & rn).Select 
With Selection 
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("J5"), Unique:=True 
End With 

Первый раз через это прекрасно работает. Если я удалю таблицу, запустите ее второй раз, не выключая программу, я получаю сообщение об ошибке «91», «Объектная переменная или с переменной блока, которая не установлена».

Любые идеи, почему и как я могу это исправить?

Answer 1

Предполагая, что ваш wrksh полностью соответствует действующему листу в вашей книге (определяется как Worksheet). rn - это числовое значение, представляющее последнюю строку вашего Range (defind as Long). И наконец, ActiveSheet тот же лист, как wrksh лист, то ниже код должен работать для вас:

With wrksh.Range("F4:F" & rn) 
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wrksh.Range("J5"), Unique:=True 
End With