【Excel VBA】按指定名称批量创建工作簿

论坛 期权论坛 期权     
数据分析就用Excel   2019-7-7 23:59   4977   0
诸君晚上好,握爪先。
今天我们分享的VBA小代码主题是:按指定名称批量创建Excel工作簿。
如下图所示,A列是我们需要创建的Excel工作簿名称。嗯~十几个表而已,手动创建也是蛮快的……
我们分享这段小代码的意义……更多在于此前和以后……和其它代码嵌套搭配使用,比如……拆分表格成独立工作簿,批量制作模版等。


代码如下:
Sub Createwks()    Dim i&, p$, r    Application.ScreenUpdating = False    '取消屏幕刷新    Application.DisplayAlerts = False    '取消警告提示,当有重名工作簿时直接覆盖    p = ThisWorkbook.Path & "\"    '以当前工作簿所在的路径保存新建工作簿    r = [a1].CurrentRegion    '数据装入数组r    For i = 2 To UBound(r)    '标题不要,因此从第2个元素开始遍历数组r        With Workbooks.Add '新建工作簿            .SaveAs p & r(i, 1), xlWorkbookDefault            '保存工作簿            .Close True            '关闭工作簿        End With    Next    Application.ScreenUpdating = True    Application.DisplayAlerts = TrueEnd Sub
小贴士:
1、该代码创建后的工作簿保存于代码所在工作簿同一路径下。
2、当A列工作簿名称存在特殊字符(不符合文件命名名称规则),会出现运行时错误提示框。特别需要提醒的是,某些日期格式并不符合文件命名规则,例如2015/8/8,但2015-8-8通常是允许的。
3,当有重名工作簿时,会直接覆盖保存。

小思考:
如何按指定模版批量创建Excel工作簿?
假设以代码所在工作簿的sheets(1)表格为模版,批量创建工作簿,并以sheets(2)的A列名称来命名,保存在当前文件夹下,您会如何写代码呢?
点击下面的原文链接可以下载练手文件哈~
Run the boys~



一码不扫,
可以扫天下?
ExcelHome
VBA编程学习与实践

分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:113
帖子:22
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP