WPS各个sheet批量分开另存,一个工作表拆分成n个独立表

WPS各个sheet批量分开另存,一个工作表拆分成n个独立表

●ω● 这个想法非常简单：循环遍历工作簿中的每个工作表以确定其名称是否为Sheet1。如果不是，请将其复制并保存到固定位置。 具体代码如下：functionbatchsplit(){varpah=ThisWorkbook.Path;for(varshtofSheets){ifFileFormat:=xlNormal'SavetheworkbookasEXCELdefaultformatActiveWorkbook.CloseNextMsgBox"文件已被分割--超普兄弟来教你Excel！"

5.如下图所示，点击"运行"按钮或者按F5快捷键运行代码，会自动进行批量操作；6.如下图所示，操作完成后，会出现提示窗口，点击"确定"；7.如下图所示，关闭VBE编辑器窗口，打开原来的场景：将多个工作表分割成独立的excel文件1.安装VBtools：通过默认：wps--开发工具---VBEditor是gray-selectedstate（即 ，不可用），此时需要先安装vb工具：VBAF

WPS2019方法/步骤1在计算机上打开表单，右键单击鼠标，然后单击左下角的工作表。 2当出现该选项时，单击"移动工作表"。 3在移动工作表中，选择"新建工作簿"。 4设置新工作簿并单击"确定"。 5sheetsht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path&"\"&sht.Name,FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox

在原始Excel工作表中按Alt+F11打开宏编辑器，然后单击插入模块输入以下宏代码：SubSplitWorkbook()'Updateby20200806DimFileExtStrAsStringDimFileFormatNumAsLongDimxWsAsWorkshee如何将工作簿中的多个工作表批量拆分为独立的工作簿？ 选择工作表选项卡-右键-移动或复制工作表-新建工作簿