Excel 批量生成指定名称工作簿

62 阅读 0 评论 41 点赞

我是靠谱客的博主英俊发带，最近开发中收集的这篇文章主要介绍Excel 批量生成指定名称工作簿，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

1、将需批量创建工作簿名称放入A列，如下图所示：
在这里插入图片描述

2、输入VBA代码并运行

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
   '新建工作薄
            .SaveAs p & temp
 '保存工作薄，p & temp是要保存的文件的名称
            .Close False
     '关闭工作薄
        End With
    Next
    Application.ScreenUpdating = True
  '恢复屏幕刷新
End Sub

在这里插入图片描述

3、这样就生成啦