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