Excel导出每个sheet为独立的文件

1、打开Excel文件，定位到“开发工具”------>“Visual Basic”，（或者可以使用快捷键 Alt + F11）

 

2、在左侧项目窗口中，目标工作薄右键，选择插入模块

 

3、在弹出的窗口，将如下代码复制进去（ "D:\20250824\"，这里改成自己想存放文件的路径）

Sub ExportSheetsToWorkbooks()
    ' 创建 FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 定义文件夹路径
    folderPath = "D:\xiykj"

    ' 创建文件夹
    If Not fso.FolderExists(folderPath) Then
        fso.CreateFolder folderPath
        MsgBox "文件夹创建成功！"
    Else
        MsgBox "文件夹已存在！"
    End If

    ' 释放对象
    Set fso = Nothing
    
    Dim ws As Worksheet
    Dim savePath As String
    Dim fileName As String
    ' 设置保存路径（默认与当前文件同目录）
    savePath = "D:\xiykj\"
    If savePath = "D:\xiykj\" Then savePath = "D:\xiykj\" ' 如果未保存原文件，默认存到C盘
    Application.ScreenUpdating = False ' 关闭屏幕刷新，加快运行速度
    For Each ws In ThisWorkbook.Worksheets
        fileName = savePath & ws.Name & ".xlsx" ' 文件名按Sheet名称命名
        ws.Copy ' 复制当前Sheet到新工作簿
        ActiveWorkbook.SaveAs fileName, FileFormat:=xlOpenXMLWorkbook ' 保存为xlsx格式
        ActiveWorkbook.Close False ' 关闭新工作簿，不保存更改
    Next ws
    Application.ScreenUpdating = True ' 恢复屏幕刷新
    MsgBox "所有Sheet已导出完成！", vbInformation
End Sub

 

4、点击运行按钮即可（或者按 F5键）

 

5、运行完成后，在D:\20250824\文件夹下即可看到所有导出的独立文件