Excel批量导出成绩单的方法

Excel批量导出成绩单的方法

简单写一个使用ExcelVBA批量导出成绩单的方法。

这里举例用成绩单，这个方法在很多地方都能用到。

如下图，为成绩单，根据成绩单的样式来编写VBA

然后，做一个成绩单的模板，做成什么样子都可以，留好空位等待填写。

然后，使用Excel开发工具——VBA编辑。

新建模块，将代码复制到模块编辑器中。

Sub 批量导出工作簿()

r = 2

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

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

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

Sheets("Sheet2").Cells(4, "b") = Sheets("Sheet1").Cells(r, "c")

Sheets("Sheet2").Cells(4, "d") = Sheets("Sheet1").Cells(r, "d")

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

点击运行，开始运行该段VBA。结果如下，成绩单就自动生成了。

打开生成的成绩单，如下图。

该段代码使用面广，如有疑问。请留言。