在实际工作中，有时需要将一个工作簿中的每个工作表都另存为单独的工作簿以方便发给不同的人。本例介绍如何用VBA代码快速完成该过程。
工具/原料
Excel
操作过程：
1、首先看一下原始数据表，在这个工作簿中每个工作表分别存储了一个人的数据。现在需要将每个人的工作表单独存成excel工作簿文件。
3、根据图示，在工作簿中插入一个模块。
4、在模块内粘贴下述代码：Sub SaveAs() On Error Resume 鲍伊酷雪Next Dim FolderPath As String, Folder绿覆冗猩Name As String, BN As String Dim ReturnValue As Integer BN = ActiveWorkbook.Name FolderPath = ThisWorkbook.Path FolderName = Mid(BN, 1, InStrRev(BN, ".", Len(BN)) - 1) Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.folderexists(FolderPath & "\" & FolderName & "-Saved") Then ReturnValue = MsgBox("文件夹已存在，是否更新内容？", vbOKCancel, "Caution!") If ReturnValue = 2 Then Exit Sub Else MyFile.CreateFolder (FolderPath & "\" & FolderName & "-Saved") Set MyFile = Nothing End If Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i As Integer For i = 1 To Sheets.Count Set Wk = Workbooks.Add Workbooks(BN).Sheets(i).Copy before:=Wk.Worksheets("Sheet1") Wk.SaveAs FolderPath & "\" & FolderName & "-Saved\" & ThisWorkbook.Sheets(i).Name Wk.Close Next i Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub
7、如果已经运行过一次拆分过程生成了上述文竭惮蚕斗件夹和文件，更改源文件内容后再次点击按钮时会提示是否更新原来生成的文件，如果点击【确定】则更新文件夹内的文件。
