作者:乔山办公网日期:
返回目录:excel表格制作
将每一个抄工作表保存为一个工作薄。
打开工作表》知Alt+F11》粘贴下列代道码》运行代码。
Sub
SaveSheet()
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" &
ws.Name, FileFormat:=xlOpenXMLWorkbook _
, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
工作薄有/符号?
1、在需要单独保存的工作表上右键,弹出菜单选择移动或复制工作表
2、在第一个里选择新工作薄然后确定
3、然后会出现新的excel文件,接着保存下来
使用UNIX的路径符号吗:
\改为/
SAVEAS那句