Копировать значения только в новую книгу из нескольких листов
Предположим, у меня естьworkbook1.xlsm
с несколькими листами и полными различных формул. Я хочу создать новыйworkbook2.xlsx
который бы выгляделименно так такой же какworkbook1
но во всех ячейках были бы значения вместо формул.
У меня есть этот макрос, чтобы скопировать один лист изworkbook1
:
Sub nowe()
Dim Output As Workbook
Dim FileName As String
Set Output = Workbooks.Add
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("Przestoje").Cells.Copy
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats
FileName = ThisWorkbook.Path & "\" & "worksheet2.xlsx"
Output.SaveAs FileName
End Sub
но проблема в том, что он копирует только один лист и не называет его так, как это было вworksheet1
, Я не могу разобраться.
Еще одна проблема заключается в том, чтоworksheet2
открывается позже. Я не хочу это делать.
Как я могу решить эти проблемы?