Здравствуйте!
У меня не получается сохранить листы в файл, при этом чтобы при сохранении не было ни макросов, ни кнопок, ни формул
Есть книга, в ней несколько листов, но нужно сохранить только три, в папку с названием из ячейки и название нового файла тоже из ячейки
Подскажите пожалуйста, что не так в моем макросе?
У меня не получается сохранить листы в файл, при этом чтобы при сохранении не было ни макросов, ни кнопок, ни формул
Есть книга, в ней несколько листов, но нужно сохранить только три, в папку с названием из ячейки и название нового файла тоже из ячейки
Подскажите пожалуйста, что не так в моем макросе?
Код |
---|
Sub СохранитьЛистыВФайл1() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim New_Wb As Workbook Set New_Wb = Workbooks.Add ThisWorkbook.Sheets(Array("сводная", "выводрем", "выводсм")).Copy New_Wb.Activate New_Wb.SaveAs Filename:=Application.ThisWorkbook.Path & "\" & CStr(Range("L1")) & "\" & CStr(Range("M1")) & "\" & CStr(Range("N1")) & "\" & Range("O1") & ".xlsx", FileFormat:=51 ActiveSheet.Buttons.Delete For Each cell In Sheets(Array("сводная", "выводрем", "выводсм")).UsedRange.Cells cell.Formula = cell.Value Next cell New_Wb.Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Выполнено!" End Sub |