Excel 工作簿中多个工作表如何快速分解成多个文件

1、打开excel，按alt+F11进入编程模式

2、选中左边列表最下面的ThisWorkbook

3、出现代码框，复制一下代码后关闭。

Sub SaveSheet()

Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & ws.Name, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
    Next
End Sub

4.点击状态栏的运行命令即可！

 

如果想把当前工作簿另存为123.xls（如保存到当前目录下）
thisworkbook.saveas (thisworkbook.path & "\123.xls")
 
如果想把其他被当前宏打开的工作簿WK（工作簿的变量名）另存为123.xls（如保存到当前目录下）
WK.saveas (thisworkbook.path & "\123.xls")

ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls",这是在MS EXCEL电子表格中使用的VBA代码,作用是将当前活动工作薄以A1单元格中的值做为文件名,另外保存在活动工作薄所在的位置。
 
ThisWorkbook.Path  & “\report.xls”

对于新建的工作簿来说，如果没有保存过，PATH是空值。

傻傻爱__Well

采纳率：40%12级2013.11.16

Excel中绝对和相对引用使用F4键进行切换