正文

excel批量生成多个excle文件（excel 批量生成文件）

发布时间：2023-05-24 19:02:53 稿源：创意岭阅读： 54

大家好！今天让创意岭的小编来大家介绍下关于excel批量生成多个excle文件的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等

只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器

问友Ai官网：https://ai.de1919.com。

本文目录:

如何依excel中数据批量生成文件
怎样批量生成excel
excel如何把一个数据批量建立到多个excel
怎么把一个Excel生成多个excel
如何按时间批量创建不同excel？

excel批量生成多个excle文件（excel 批量生成文件）

如何依excel中数据批量生成文件

邮件合并功能能满足要求
、在word中，选择“邮件——邮件合并向导”打开向导。
2
2、选择“信函”，下一步
3、选择“使用当前文档”
4、选择“浏览”，选择到excel的数据表格。
5、选择如下图的数据源，勾选“全部显示”，确定
6、选择“整张电子表格”，确定
7、打开数据源的确认表格，选择需要填充的数据，确定！
8、此时在菜单表会有“插入合并域”，下列表中，会出现excel中的数据字段，此时在word模板中的需要的位置，点哪个字段，就会在哪个位置插入哪个字段数据。
9、选择“完成合并——编辑单个文档”
10、在打开的对话框中选择合并到文档“全部” ，此时word会自动合并数据源。
11、注意打印时，页数输入指定格式“p1s1－p1s2”表示打印1－2页。
最后：如果显示的数据显示N多的小数位置，在执行如下操作。勾选“打开时确认文件格式转换”

怎样批量生成excel

Excel是办公中常用的办公软件，熟练的使用Excel，能够有效的提高工作效率。在使用Excel制作工作表的时候，一个一个来太麻烦，那有没有办法可以批量生成工作表呢？今天小编就来教教大家如何使用Excel批量生成工作表，并且工作表的名字需要按照你的需求来设置，比如一部门、二部门……九部门，接来下来一起来看看教程吧！

数据透视表里面有一个“显示报表筛选页”，可以实现哦

第一步，选中A1：A10单元格区域，执行“插入——数据透视表”，在H1单元格创建数据透视表。

第二步，将“销售部门”拖动到“筛选器”。

第三步，依次执行“数据透视表工具——分析——选项——显示报表筛选页”。

此时会弹出“显示报表筛选页”，我们直接点击“确定”。

然后Excel底部，就为你呈现出了所有以部门名字为名称的工作表

选定所有的工作表，按下CTRL+A，全选，执行“开始——清除——全部清除”，搞定啦！

简单几步轻轻松松教你用Excel批量生成工作表，是不是很便捷呢！

excel如何把一个数据批量建立到多个excel

如果是同样的数据复制一个EXCEL文件的话，直接在文件夹里复制粘贴，然后更改文件名即可。如果是在一个文件里，要复制多张EXCEL表格的话，在你要复制的sheet上右击，选择“移动或复制”，勾上建立副本，就能复制一张。另一个简单点的方法是，先新建多张空表，然后把你要批量的表全表复制粘贴到空表中即可。

excel批量生成多个excle文件（excel 批量生成文件）

怎么把一个Excel生成多个excel

把你数据复制到附件的工作表中，打开工作簿时候选择启用宏，点击按钮，即可生成在当前工作簿所在的目录下。

也可以右键你数据所在工作表的标签，查看代码，把下面代码贴进去。

Sub AAA()
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set Sh = ThisWorkbook.ActiveSheet
    With Workbooks.Add(xlWBATWorksheet)
        For I = 2 To Sh.Range("A65536").End(xlUp).Row
            Sh.Rows(1).Copy .Sheets(1).Rows(1)
            Sh.Rows(I).Copy .Sheets(1).Rows(2)
            .SaveAs ThisWorkbook.Path & "" & Sh.Range("A" & I), 51
        Next
        .Close True
    End With
End Sub

追问

大神，灰常感谢！

还有两个地方麻烦帮我完善一下。

生成的文件后缀名帮忙改成.csv格式

每个生成的excel表sheet 1 改成对应的NO号

每个生成的excel表名字是对应的NO号，比如1.CSV。

谢谢！！

追答Sub AAA()
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set Sh = ThisWorkbook.ActiveSheet
    With Workbooks.Add(xlWBATWorksheet)
        For I = 2 To Sh.Range("A65536").End(xlUp).Row
            .Sheets(1).Name = Sh.Range("A" & I)
            Sh.Rows(1).Copy .Sheets(1).Rows(1)
            Sh.Rows(I).Copy .Sheets(1).Rows(2)
            .SaveAs ThisWorkbook.Path & "" & Sh.Range("A" & I), xlCSV
        Next
        .Close True
    End With
End Sub

如何按时间批量创建不同excel？

先看动图演示吧

请点击输入图片描述

注意在开始之间呢，需要将日期前加一个英文的分号，以将日期转为文本格式

请点击输入图片描述

好了我们选中数据区域

请点击输入图片描述

好了选择方方格子按钮

请点击输入图片描述

选择工作表操作命令

请点击输入图片描述

选择创建工作表