仅保存活动工作表的宏

Question

在下面的代码中，它保存了完整的工作簿。我只想保存活动工作表。

Sub sbVBS_To_SAVE_ActiveWorkbook()
ActiveWorkbook.Save
End Sub

Answer 1

将工作表复制到任何位置会自动在前台创建一个新工作簿，并将该工作表的副本作为新工作簿中的唯一工作表。

Sub test()
    worksheets("sheet3").copy
    'there is now a new active workbook
    with activeworkbook
        'save it
        .SaveAs Filename:="some file path and filename without extension", FileFormat:=xlOpenXMLWorkbook
        'optionally close it
        .close savechanges:=false
    end with
End Sub