在下面的代码中,它保存了完整的工作簿。我只想保存活动工作表。
Sub sbVBS_To_SAVE_ActiveWorkbook()
ActiveWorkbook.Save
End Sub
将工作表复制到任何位置都会自动在前台创建一个新工作簿,并将该工作表的副本作为新工作簿中的唯一工作表。
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)