如下图，在文件夹中建立如图所示的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
代码简单解释：
