Сохранения листа в сетевую папку, только значения

RSS

vendigo

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

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

26.03.2019 13:07:23

Есть такой макрос, подскажите что нужно добавить чтобы сохранялись не формулы на листе, а значения?

Код

Sub Копия()
Application.DisplayAlerts = False
Filename = "\\server\Кka" & "\" & Worksheets("Лист").Range("C12") & ".xlsx"
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub

Paul Zealand

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

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

26.03.2019 13:26:38

vendigo, вот есть кучочек кода под Ваши нужды. Надеюсь, разберетесь как его адаптироваь.

Код

Source.Copy
    With Dest.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial Paste:=xlPasteValues
        .Cells(1).PasteSpecial Paste:=xlPasteFormats
        .Cells(1).Select
        Application.CutCopyMode = False
    End With

Изменено: Paul Zealand - 26.03.2019 13:26:45

vikttur

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

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

26.03.2019 13:31:01

После копирования

Код
With Sheets("нужный лист").UsedRange .Value = .Value End With