【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把激活的工作簿另存为,定义好的路径与名称;

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容