批量创建指定名称的工作簿，这回不用伤脑筋了

文章预览

各位表亲，早上好。 今天和大家分享的技巧是 根据指定名称，批量创建Excel工作簿。 举个栗子，如下图，A列是创建工作簿的名称，需要在该工作薄所在的文件夹内批量创建相关名称的Excel工作薄。 按 < Alt+F11>组合键    打开VBE界面，在代码窗口中输入以下内容：  Sub newbooks()     Dim i & , p$, temp$     On Error Resume Next '忽略代码运行中的错误，避免存在异常名称工作簿等问题时，代码运行中断。     Application.ScreenUpdating = False   '关闭屏幕刷新     p = ThisWorkbook.Path & "\"    ' 取得当前工作薄所在路径     For i = 1 To Cells(Rows.Count, 1).End(3).Row   '循环读取A列数据         temp = Cells(i, 1) & ".xlsx"   'temp是完整的含文件后缀的工作薄名称         With Workbooks.Add ………………………………