VBA常用小代码204：按指定名称批量创建Excel工作簿

诸君晚上好，握爪先。

今天我们分享的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 = True

End Sub

---

 

小贴士：

1、该代码创建后的工作簿保存于代码所在工作簿同一路径下。

2、当A列工作簿名称存在特殊字符（不符合文件命名名称规则），会出现运行时错误提示框。特别需要提醒的是，某些日期格式并不符合文件命名规则，例如2015/8/8，但2015-8-8是允许的。

3，当有重名工作簿时，会直接覆盖保存。