从工作簿复制工作表并创建一个新工作簿，然后将此文件保存到新目标并更改名称

Question

我试图从工作簿中取出一个工作表并创建一个新工作簿，然后将其保存到一个新文件夹中，该工作簿将其命名为 December。这段代码通过了，但它打开了一个新的工作簿，并且没有将其保存到我写下的目的地。

子复制表并保存（）

设置sourceWs = ThisWorkbook.Sheets(“150”)

保存路径 =“C:\Users”

sourceWs.复制 设置 newWb = ActiveWorkbook

newWb.另存为文件名:=十二月

newWb.关闭 结束子

Answer 1

一些建议：

Sub Copysheetandsave()
    Dim sourceWs As WorkSheet

    Set sourceWs = ThisWorkbook.Worksheets("150")

    savePath = "C:\Users\yourUserNameHere\"

    sourceWs.Copy 
    With ActiveWorkbook
        .SaveAs Filename:= savePath & "December.xlsx"
        .Close False
    End with

End Sub