【Excel VBA】2018-09-30 批量创建指定名称的工

案例

案例来源：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把激活的工作簿另存为，定义好的路径与名称；