使用VBA按指定名称和模板批量创建Excel工作簿

Excel技巧

2024-02-16 00:39:14

使用 VBA 批量创建工作簿，提高办公效率

简介

在日常办公中，创建大量的工作簿是一项耗时的任务，尤其是需要使用不同的模板时。手动创建不仅效率低下，而且容易出错。VBA 是一种强大的工具，可以帮助我们自动化这一过程，按指定名称和模板批量创建工作簿，从而节省大量时间和精力。

步骤详解

准备工作簿和模板

首先，在 Excel 中打开包含工作簿名称列表和模板的工作簿。确保工作簿名称列表位于工作表的第一列，模板位于单独的工作表中。

插入 VBA 模块

打开 VBA 编辑器，插入一个新的模块。将以下代码复制并粘贴到模块中：

Sub CreateWorkbooks()

    Dim wb As Workbook
    Dim wsNames As Variant
    Dim wsTemplate As Worksheet
    Dim i As Long
    Dim newWb As Workbook
    Dim newWs As Worksheet

    '获取工作簿名称列表
    Set wb = ActiveWorkbook
    wsNames = wb.Worksheets("Sheet1").Range("A2:A" & wb.Worksheets("Sheet1").Range("A" & wb.Rows.Count).End(xlUp).Row).Value

    '获取模板工作表
    Set wsTemplate = wb.Worksheets("模板")

    '按名称创建新工作簿
    For i = 1 To UBound(wsNames, 1)
        Set newWb = Workbooks.Add
        newWb.Worksheets(1).Name = wsNames(i, 1)
    Next i

    '将模板内容复制到新工作簿
    For i = 1 To UBound(wsNames, 1)
        Set newWb = Workbooks(i + 1)
        Set newWs = newWb.Worksheets(1)
        wsTemplate.Range("A1:Z100").Copy newWs.Range("A1")
    Next i

    '保存并关闭新工作簿
    For i = 1 To UBound(wsNames, 1)
        Set newWb = Workbooks(i + 1)
        newWb.SaveAs Filename:=ThisWorkbook.Path & "\" & wsNames(i, 1) & ".xlsx"
        newWb.Close SaveChanges:=False
    Next i

    '提示用户操作完成
    MsgBox "工作簿创建完成！"

End Sub