提供一段VBA代码供参考
作用是，保存当前工作簿的sheet，在当前文件夹下，单独另存为xls文件
VB.NET与VBA有一些差别，自己调试一下改改。
Dim TPath As String, XSheet As Worksheet
TPath = ActiveWorkbook.Path
For Each XSheet In ActiveWorkbook.sheets
XSheet.Copy
ActiveWorkbook.SaveAs Filename:=TPath & "\" & ActiveSheet.Name & ".xls"
ActiveWindow.Close
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024