Сохранить лист (только значения) в отдельный файл.xlsx

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

01.02.2014 22:45:49

Возникла проблема с сохранением листа в новый файл. На листе используется фильтр, при переносе все, что ниже фильтра переносится неправильно. Как это можно исправить!? Мне нужно сохранить точную копию листа только без формул.
В данном скрипте вопрос наверное только в .Cells.Value = .Cells.Value, но если указывать точный диапазон(.[A1:213].Value), то все копируется с формулами.

Прикрепленные файлы

book.xlsm (30.42 КБ)

Изменено: Дмитрий - 01.02.2014 22:47:24

Антон

Пользователь

Сообщений: 621 Регистрация: 01.01.1970

02.02.2014 02:46:33

Здравствуйте!
То есть, Вы хотите создать такой же лист с автофильтром?
Я бы делал так, записано макрорекодером.
1) Копируем книгу
2) удаляем автофильтр
3) копируем - спец. вставка значения
4) применяем автофильтр
5) сохраняем документ

Код

Sheets("Реестр").Select
    Sheets("Реестр").Copy
    ActiveSheet.Range("$A$4:$E$205").AutoFilter Field:=5
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$4:$E$205").AutoFilter Field:=5, Criteria1:="1"
    Application.CutCopyMode = False
    ChDir "C:\Users\Server\Downloads\Реестр"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Server\Downloads\Реестр\Книга3.xlsx", FileFormat:=xlOpenXMLWorkbook _
        , CreateBackup:=False
    ActiveWindow.Close

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#3 02.02.2014 03:29:33 Дмитрий, вы б показали, в каком виде нужен новый файл....

Дмитрий Пользователь Сообщений: 5 Регистрация: 01.01.1970	#4 02.02.2014 11:43:46 Антон, огромное спасибо! То, что нужно. Я мог бы обыграть используя скрипт по скрытию строк, но он сильно замедляет работу, а про ваш метод я и не догадался. Изменено: Дмитрий - 02.02.2014 11:52:36

Читают тему