Добрый день!
У меня возникла необходимость выцепить необходимые данные из таблицы методом расширенного фильтра.
Исходные данные хранятся в одном файле, а готовые данные после обработки расширенным фильтром в другом.
Мой код выглядит следующим образом:
Я бы хотел заменить код по расширенному фильтру примерно на следующий:
Т.е. я не хочу привязываться к названию исходного файла в самом коде, можно ли его обозначить в виде переменной в расширенном фильтре, как и порядковый номер листа и исходный диапазон?
Мне выдает ошибку "application defined or object defined error 1004"
Что я делаю не так?
Спасибо.
У меня возникла необходимость выцепить необходимые данные из таблицы методом расширенного фильтра.
Исходные данные хранятся в одном файле, а готовые данные после обработки расширенным фильтром в другом.
Мой код выглядит следующим образом:
Код |
---|
ActiveWorkbook.RemovePersonalInformation = 0 ActiveWorkbook.Worksheets("Ссылки").Activate NewFilePath1 = Range("F9").value ' в этой ячейке ссылка на файл с исходными данными On Error Resume Next Workbooks.Open filename:= _ NewFilePath1, UpdateLinks:=False On Error GoTo 0 Windows("Финальный файл.xlsm").Activate Sheets("ИТОГО").Select Range("I2").Select Workbooks("Исходный файл.xls").Sheets("Sheet1").Range( _ "A5:G30358").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "A2:G6"), CopyToRange:=Range("I2:O2"), Unique:=False |
Код |
---|
Workbooks(Dir(NewFilePath1)).Worksheets(1).Range( _ "A5:G & Cells(Rows.Count, 1).End(xlUp).Row)").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "A2:G6"), CopyToRange:=Range("I2:O2"), Unique:=False |
Мне выдает ошибку "application defined or object defined error 1004"
Что я делаю не так?
Спасибо.