案例
案例来源：Excel和Access （微信公众号）点击 - 查看原文
案例图一
根据指定的工作簿名称，批量创建Excel工作簿。
附件：点击查看-百度云
提取密码：i6oj
一、源数据
可以自定义写上需要的名称，示例用日期来建立。使用日期时，注意先把格式调整为文本类型。
二、批量生成代码
Sub 批量创建指定名称工作簿()
Dim i, k As Integer
Dim Sr As String
k = 1000
For i = 1 To Range("a" & k).End(xlUp).Row
Workbooks.Add
Sr = "C:\Users\R8888\OneDrive\桌面\" & ThisWorkbook.Worksheets("sheet1").Range("a" & i) & ".xlsx"
'此处限定了这个工作簿的Sheet1工作表，A列的数据。引用A列的数据，作为生成的工作簿名称
ActiveWorkbook.SaveAs Sr
Next
ActiveWorkbook.Close
MsgBox "创建完成！"
End Sub
代码解释
2.1 定义K=1000，即设定生成最多不超过1000个的文件名称；
2.2 Workbooks.add方法，生成一个新工作簿；
2.3 定义Sr，表示一个完整的路径+文件名，系一个文件；
2.4 因为新生成的工作簿默认为最前方激活的工作簿，ActiveWorkbook.saveAs Sr把激活的工作簿另存为，定义好的路径与名称；
