如何将excel表的sheet拆成单独的文件表

创建一个测试表格，3个sheet，内容分别为"aaa"，"bbb"，"ccc"。

使用office打开，右击某个sheet弹出操作栏，选择"查看代码"。

然后在弹框里输入下面代码：

代码：

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub

然后单击上边操作栏中的"运行"，选择"运行子过程/用户窗体"。

然后会自动开始进行拆分，中途可能会弹出下边提示，选择"是"就ok。

弹出这个就完成了

如何将excel表的sheet拆成单独的文件表相关推荐

用python将一个excel工作表根据条件拆分成多个工作表（只用openpyxl库）
用python将一个excel工作表根据条件拆分成多个工作表(只用openpyxl库) 最近在学python,刚刚了解了openpyxl库,就想写点实用的功能.比如按某列值拆分工作表. 先放代码 fr ...
excel将一个工作表根据条件拆分成多个工作表图文教程
本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表. 注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为"数据源&qu ...
将工作表按条件拆分成多个工作表或者工作簿，包含快速拆分与精致拆分
将一个工作表按条件拆分成多个工作表或者拆分成工作簿,包含快速拆分与精致拆分. 精致拆分可以保留所有格式,速度慢一点. 可以将一个工作表拆分成多个工作表,也可以直接拆分成多个独立文件. 将工作表按条件拆 ...
excel将一个工作表根据条件拆分成多个工作表，并将多个工作表怎么拆分成独立表格
目录一.原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表. 二.进入VBE编辑页面三.插入一个新的模块. 四.在模块1窗口粘入如下代码 ,并保存五. ...
Excel把一个工作表根据条件拆分成多个工作表
Excel 2016 参考https://jingyan.baidu.com/article/d7130635071d2313fdf47585.html 有时候需要在一个工作簿中建立多个工作表,并且需 ...
excel多个sheet转换成html,excel怎么把几个sheet汇总成一个表
1.新建一个文件夹.将要合并的表格放到里面.新建一个表格.用excel打开.右击Sheet1 2.选择查看代码(PS:excel有着一项,WPS没有) 3.将下列代码复制到文本框中: Sub 合并当前 ...
excel将一个工作表根据条件拆分成多个工作表
转载:https://jingyan.baidu.com/article/d7130635071d2313fdf47585.html 注意:很多朋友反映sheets(i).delete这句代码出错,要 ...
多个sheet拆分成多个文件_Pandas拆分DataFrame到多个文件中
背景:有20万行的数据,需要按照1万5行进行拆分: 核心:借助余数拆分组,再取子数据集: 示例: 步骤一取余数 image-20201119110009301 步骤二:取子数据集 image-2020 ...
python把工作簿拆分为工作表_excel将一个工作表根据条件拆分成多个工作表
如下图,粘贴下列代码在模块中: Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As ...

如何将excel表的sheet拆成单独的文件表

如何将excel表的sheet拆成单独的文件表相关推荐

最新文章

热门文章