将工作表复制为新工作簿作为值

Question

我想将数据工作簿的最终输入工作表仅作为值复制到新工作簿

我已经尝试过，但是它将数据粘贴为值

Sub CopyToNew()
Sheets("Final Input").Copy
End Sub

Answer 1

Option Explicit

Public Sub TestMe()

    Dim newWb As Workbook
    Dim newWbPath As String: newWbPath = ThisWorkbook.Path & "\NewWB.xlsx"
    Set newWb = Workbooks.Add

    ThisWorkbook.Worksheets("FinalCountDown").Cells.Copy
    newWb.Worksheets(1).Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

    newWb.SaveAs newWbPath
    newWb.Close

End Sub

• 它将单元格从ThisWorkbook("FinalCountDown")复制到新工作簿的第一个工作表中。
• 然后，新工作簿被命名为“ NewWB.xlsx”，并通过变量newWbPath与ThisWorkbook保存在同一文件中。
• 最后，newWb用newWb.Close关闭。