怎么根据模板和目录名批量建立工作簿？-艾问

有一个非常简单的方法，就是利用数据透视表进行新建工作表

首先我们选择插入数据透视表，插入后我们将工作名称拖动到筛选字段

然后在数据透视表的选项中选择显示报表筛选页，点击确定

然后Excel就会根据数据进行表格名称的创建

我是Excel从零到一关注我持续分享更多Excel技巧

没看到是新建工作薄，这个更简单，主需要在A列放置需要新建的工作薄名称，我这里以数字代替名称

然后点击vba编辑器，进入vba编辑界面，然后选择插入一个模块，复制如下代码点击运行即可，新建的工作薄都在d盘

Sub 拆分在D盘()

Dim i

Dim s

For i = 1 To WorksheetFunction.CountA([a:a])

s = Cells(i, 1)

ActiveWorkbook.SaveAs "D:" & s & ".xlsx"

这个问题用VBA代码就可以解决：

一、准备数据

如图：在文件夹中建立如图所示的10个表，名称分别为：河西走廊、张掖、武威、玉门、瓜州、敦煌、高台、酒泉、民勤、永昌。这里只举例10个，数量由需要的工作簿数量而定，都是可以实现的。

二、最终效果三、操作步骤

在准备数据的表格中，按ALT+F11，调出VBA代码窗口，复制粘贴以下代码，回到表格，再按ALT+F8执行代码，就可以了。

具体代码如下:

Sub 宏1()

Dim i

i = 2

While Cells(i, 1) <> ""

Workbooks.Add

ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Cells(i, 1) & ".xlsx"

ActiveWindow.Close

i = i + 1

Wend

End Sub

代码简单解释：

希望这个回答可以帮助到你，请帮忙转发出去！如果你需要这个模板，请关注我，私信“永昌”，就可以获得这个模板。谢谢！

怎么根据模板和目录名批量建立工作簿？