正文

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

發(fā)布時間：2023-05-24 19:02:53 稿源：創(chuàng)意嶺閱讀： 54

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關于excel批量生成多個excle文件的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。

開始之前先推薦一個非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計劃、工作報告、論文、代碼、作文、做題和對話答疑等等

只需要輸入關鍵詞，就能返回你想要的內容，有小程序、在線網頁版、PC客戶端和批量生成器

問友Ai官網：https://ai.de1919.com。

本文目錄:

如何依excel中數(shù)據(jù)批量生成文件
怎樣批量生成excel
excel如何把一個數(shù)據(jù)批量建立到多個excel
怎么把一個Excel生成多個excel
如何按時間批量創(chuàng)建不同excel？

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

如何依excel中數(shù)據(jù)批量生成文件

郵件合并功能能滿足要求
、在word中，選擇“郵件——郵件合并向導”打開向導。
2
2、選擇“信函”，下一步
3、選擇“使用當前文檔”
4、選擇“瀏覽”，選擇到excel的數(shù)據(jù)表格。
5、選擇如下圖的數(shù)據(jù)源，勾選“全部顯示”，確定
6、選擇“整張電子表格”，確定
7、打開數(shù)據(jù)源的確認表格，選擇需要填充的數(shù)據(jù)，確定！
8、此時在菜單表會有“插入合并域”，下列表中，會出現(xiàn)excel中的數(shù)據(jù)字段，此時在word模板中的需要的位置，點哪個字段，就會在哪個位置插入哪個字段數(shù)據(jù)。
9、選擇“完成合并——編輯單個文檔”
10、在打開的對話框中選擇合并到文檔“全部” ，此時word會自動合并數(shù)據(jù)源。
11、注意打印時，頁數(shù)輸入指定格式“p1s1－p1s2”表示打印1－2頁。
最后：如果顯示的數(shù)據(jù)顯示N多的小數(shù)位置，在執(zhí)行如下操作。勾選“打開時確認文件格式轉換”

怎樣批量生成excel

Excel是辦公中常用的辦公軟件，熟練的使用Excel，能夠有效的提高工作效率。在使用Excel制作工作表的時候，一個一個來太麻煩，那有沒有辦法可以批量生成工作表呢？今天小編就來教教大家如何使用Excel批量生成工作表，并且工作表的名字需要按照你的需求來設置，比如一部門、二部門……九部門，接來下來一起來看看教程吧！

數(shù)據(jù)透視表里面有一個“顯示報表篩選頁”，可以實現(xiàn)哦

第一步，選中A1：A10單元格區(qū)域，執(zhí)行“插入——數(shù)據(jù)透視表”，在H1單元格創(chuàng)建數(shù)據(jù)透視表。

第二步，將“銷售部門”拖動到“篩選器”。

第三步，依次執(zhí)行“數(shù)據(jù)透視表工具——分析——選項——顯示報表篩選頁”。

此時會彈出“顯示報表篩選頁”，我們直接點擊“確定”。

然后Excel底部，就為你呈現(xiàn)出了所有以部門名字為名稱的工作表

選定所有的工作表，按下CTRL+A，全選，執(zhí)行“開始——清除——全部清除”，搞定啦！

簡單幾步輕輕松松教你用Excel批量生成工作表，是不是很便捷呢！

excel如何把一個數(shù)據(jù)批量建立到多個excel

如果是同樣的數(shù)據(jù)復制一個EXCEL文件的話，直接在文件夾里復制粘貼，然后更改文件名即可。如果是在一個文件里，要復制多張EXCEL表格的話，在你要復制的sheet上右擊，選擇“移動或復制”，勾上建立副本，就能復制一張。另一個簡單點的方法是，先新建多張空表，然后把你要批量的表全表復制粘貼到空表中即可。

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

怎么把一個Excel生成多個excel

把你數(shù)據(jù)復制到附件的工作表中，打開工作簿時候選擇啟用宏，點擊按鈕，即可生成在當前工作簿所在的目錄下。

也可以右鍵你數(shù)據(jù)所在工作表的標簽，查看代碼，把下面代碼貼進去。

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

如何按時間批量創(chuàng)建不同excel？

先看動圖演示吧

請點擊輸入圖片描述

注意在開始之間呢，需要將日期前加一個英文的分號，以將日期轉為文本格式

請點擊輸入圖片描述

好了我們選中數(shù)據(jù)區(qū)域

請點擊輸入圖片描述

好了選擇方方格子按鈕

請點擊輸入圖片描述

選擇工作表操作命令

請點擊輸入圖片描述

選擇創(chuàng)建工作表