使用VBA将当前工作表及所选文件夹内的所有子文件拆分，并将每个工作表保存至对应的路径

简介：
当我们在进行Excel VBA编程时，有时需要在处理大型工作簿时对其管理与优化。这可能包括将单个文件分割为若干较小的文件，每个对应原工作簿中的单独的工作表。该操作可通过编写相应的VBA宏程序来完成，从而实现了对整个处理流程的自动化。以下将详细阐述利用VBA进行Excel分割的具体步骤，以及如何将分割后的各个工作表保存至目标文件夹。应建立一个新VBA模块。通过按住Alt键并按下F11打开VBA编辑器，在工程资源管理器中执行操作：插入→模块。在新模块中，我们就可以设置一个子过程，例如SplitWorkbook函数或方法，它接收一个路径变量名（FolderPath），用于指定将工作簿拆分后的工作表存储位置。以下是一段具体的VBA代码示例：```vba Sub SplitWorkbook(FolderPath As String) Dim wb As Workbook Dim ws As Worksheet Dim NewFileName As String 设置当前工作簿为活动工作簿 Set wb = ActiveWorkbook 遍历工作簿中的每个工作表 For Each ws In wb.Worksheets 构建新文件名，可以包含工作表名称 NewFileName = FolderPath & & ws.Name & .xlsx 复制工作表并保存为新的Excel文件 ws.Copy Application.ActiveWorkbook.SaveAs Filename:=NewFileName, FileFormat:=xlOpenXMLWorkbook Application.ActiveWorkbook.Close SaveChanges:=False Next ws End Sub ```该段代码随后依次定义了工作簿对象`wb`和工作表对象`ws`。然后，它对工作簿中的每一个工作表进行遍历处理。具体而言，对于每个工作表，代码会生成一个新的文件名并将其复制至新的Excel文档中。其中，参数`FileFormat`被设为-xlOpenXMLWorkbook-以指定文件格式为.xlsx。需要注意的是，在整个操作过程中，默认保存格式已设置为支持2007及以上版本的文件类型。为了运行该宏，在运行之前，请您选择一个文件夹。例如通过`Application.GetSaveAsFilename`函数获取用户指定的路径。接下来，请您调用`SplitWorkbook`子过程，并将选中的文件夹路径作为参数传递进去。 为了方便处理所有的Excel文件，你需要对现有的代码进行一些调整，并引入一个递归函数来实现对文件夹及其子文件夹的遍历过程。这个操作需要通过利用FileSystemObject这个工具来进行文件类型的判断以及对文件系统结构进行分析。以下部分展示了扩展后的VBA代码示例：```vba 引入文件系统对象 Private Declare PtrSafe Function GetObject Lib oleaut32 _ Alias GetActiveObject (ByVal lpwstrClass As String, ByVal lpsv As Long) As Object Dim fso As Object Set fso = GetObject(Scripting.FileSystemObject) Sub SplitWorkbooksInFolder(FolderPath As String) Dim FileOrFolder As Object Dim SubFolder As Object Dim wb As Workbook 遍历文件夹内的每一个对象 For Each FileOrFolder In fso.GetFolder(FolderPath).Files If fso.GetExtensionName(FileOrFolder.Path) = xlsx Or fso.GetExtensionName(FileOrFolder.Path) = xls Then 打开Excel文件并执行拆分操作 Set wb = Workbooks.Open(FileOrFolder.Path) Call SplitWorkbook(FileOrFolder.Path) wb.Close SaveChanges:=False End If Next FileOrFolder 遍历子文件夹 For Each SubFolder In fso.GetFolder(FolderPath).SubFolders Call SplitWorkbooksInFolder(SubFolder.Path) Next SubFolder End Sub ```在扩展版本中，`SplitWorkbooksInFolder`函数将对指定文件夹及其子文件夹中的所有对象进行遍历，并判断其中每一个是否为Excel文档（.xlsx或.xls格式）。对于每个符合条件的文档，该函数将启动`SplitWorkbook`过程以执行拆分操作，并确保工作簿正确关闭。经过此处理后，所选中的所有Excel文件都将被分割。 在实际操作过程中，为了确保系统的稳定运行，可能会需要编写相应的错误处理代码来应对可能出现的异常情况。例如，在文件操作中，如果遇到文件已存在的情况或者用户无权限访问，则会触发特定的机制进行处理。此外，在满足不同用户需求的前提下，建议可以根据实际情况定制文件命名的标准。如果仅涉及某些工作表的处理，则可以选择性地进行拆分。利用VBA技术，我们能够完成对大量Excel文件的系统化管理与自动化操作流程，并显著提升处理效率。在执行相关代码时，请确保目标文件夹目录是存在的，并且您拥有足够的权限以读取和修改其中的文件。