进入VBE
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8
选Test,点击运行
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
Sub
Test()
Dim
Sht
As
Worksheet
For
Each
Sht
In
Sheets
Sht.Copy
ActiveWorkbook.SaveAs
ThisWorkbook.Path
&
"\"
&
Sht.Name
&
".xls"
ActiveWorkbook.Close
Next
End
Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)