「 OFFICE 」将Excel的sheet拆分成独立文件的方法

Robot_Starscream

已于 2022-11-14 09:55:31 修改

阅读量3.5k

点赞数 3

分类专栏：「 Office 」文章标签： Excel Sheet提取批量处理 VBA脚本工作簿操作

于 2022-11-12 05:00:00 首次发布

本文链接：https://blog.csdn.net/Robot_Starscream/article/details/127199905

版权

「 Office 」专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何从Excel中提取特定sheet，并提供脚本实现，包括单个sheet提取和批量复制到新文件的操作，适用于数据管理和预处理工作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、前言

小白通常将所有数据收录在一个Excel内，但有时需要将某个或某些数据单独处理，便需要进行sheet提取操作，将操作过程记录如下。

二、技术实现

1. 提取某一个sheet

2. 脚本批量提取

示例代码如下：

 Private Sub 拆分工作表()
    Dim sht As Worksheet
    Dim MyBook As Workbook
    Set MyBook = ActiveWorkbook
    For Each sht In MyBook.Sheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal
        ActiveWorkbook.Close
    Next
    MsgBox "被拆分完毕"
 End Sub

关注博主即可阅读全文