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

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

最终效果如下图：

操作步骤

在准备数据的表格中，按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

代码简单解释：