Добрый вечер, форумчане.
Подскажите, как совершать манипуляции с копией листа?
Пока получается только задействовать активную книгу, что не есть хорошо, она должна оставаться целой, как шаблон.
Нужно вынести лист в отдельную книгу, зазначить сумму, сохранить и закрыть.
Пример прилагаю.
Подскажите, как совершать манипуляции с копией листа?
Пока получается только задействовать активную книгу, что не есть хорошо, она должна оставаться целой, как шаблон.
Нужно вынести лист в отдельную книгу, зазначить сумму, сохранить и закрыть.
Пример прилагаю.
Код |
---|
Sub RandW() Dim wb As Workbook Dim s As Worksheet Dim AW As Window Set wb = ActiveWorkbook Set AW = ActiveWindow Application.DisplayAlerts = False 'преобразование формул в значения на текущем листе ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value On Error Resume Next For Each s In Sheets If Not s Is ActiveSheet Then s.Visible = xlSheetVisible: s.Delete Next ' Application.Quit ActiveWorkbook.SaveCopyAs wb.Path & "\" & Range("B1") & Range("B2") & ActiveSheet.Name & ".xls" Application.DisplayAlerts = True End Sub |