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

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

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

5、Sub 任意字符()r = 2Do While Sheets("挢旗扦渌;Sheet1").Cells(r, 媪青怍牙"a") <> ""Sheets("Sheet2").Cells(2, "b") = Sheets("Sheet1").Cells(r, "a")Sheets("Sheet2").CopySet wb = ActiveWorkbookwb.SaveAs "C:\Users\Administrator\Desktop\新建文件夹 (3)\" & Sheets("Sheet2").Cells(2, "b") & ".xlsx"wb.Closer = r + 1LoopEnd Sub例子中，使用了循环，将sheet1中的姓名填入了sheet2中的Cells(2, "b")所以，我们直接读取的Cells(2, "b")来命名。