Excel批量导出工作簿，并以单元格内容命名

1、首先，打开Excel2007，打开开发工具，打开VBA编辑器。

2、然后，在左侧菜单中，插入新模块。

3、然歌民后，查看要陵近读取的单元格位置，如姓名位于b列。

4、然后，输入代码：

5、Sub 任意字符()

r = 2

Do While Sheets("Sheet1").Cells(r, "a") <> ""

Sheets("Sheet2").Cells(2, "b") = Sheets("Sheet1").Cells(r, "a")

Sheets("Sheet2").Copy

Set wb = ActiveWorkbook

wb.SaveAs "C:\Users\Administrator\Desktop\新建文件夹 (3)\" & Sheets("Sheet2").Cells(2, "b") & ".xlsx"

wb.Close

r = r + 1

Loop

End Sub

例子中，使用了循环，将sheet1中的姓名填入了陕吩宙sheet2中的Cells(2, "b")

所以，我们直接读取的Cells(2, "b")来命名。

6、最后，运行程序，即可达到，导出工作表格并以单元格内容命名。