批量保存多个工作表为独立文件VBA宏

使用VBA宏批量保存

1. ‌打开VBA编辑器‌：

   • 在Excel中，按Alt + F11打开VBA编辑器。

2. ‌插入新模块‌：

   • 在VBA编辑器中，选择“插入”“模块”，插入一个新的模块。

3. ‌编写宏代码‌：

   • 将以下代码粘贴到新模块中：

Sub SaveSheetsAsWorkbooks()
    Dim ws As Worksheet
    Dim newWb As Workbook
    Dim savePath As String
    
    ' 设置保存路径（修改为你的实际路径）
    savePath = "C:\YourFolderPath\" ' 确保路径以反斜杠结尾
    
    ' 检查路径是否存在，不存在则创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 复制工作表到新工作簿
        ws.Copy
        Set newWb = ActiveWorkbook
        
        ' 保存新工作簿
        newWb.SaveAs Filename:=savePath & ws.Name & ".xlsx", _
                       FileFormat:=xlOpenXMLWorkbook
        
        ' 关闭新工作簿
        newWb.Close SaveChanges:=False
    Next ws
    
    MsgBox "所有工作表已保存为独立文件！", vbInformation
End Sub

1. ‌运行宏‌：

   • 关闭VBA编辑器，回到Excel界面。
   • 按Alt + F8打开“宏”对话框。
   • 选择SaveSheetsAsWorkbooks宏，点击“运行”。

2. ‌查看结果‌：

   • 宏运行完毕后，所有工作表将被保存为指定路径下的独立Excel文件（.xlsx格式）。