VBA 自动化批量生成 Excel 表单代码

以下是一个简单的 VBA 代码，用于自动化批量生成 Excel 表单。你可以根据自己的需求进行修改和优化。

Sub generateForms()
    Dim numForms As Integer ' 要生成的表单数量
    numForms = InputBox("请输入要生成的表单数量：")
    
    Dim formName As String ' 表单名称
    Dim formNumber As Integer ' 表单编号
    Dim form As Object ' 表单对象
    
    For i = 1 To numForms
        formNumber = i
        formName = "表单" & formNumber ' 表单名称为'表单1'、'表单2'、'表单3'等
        Set form = CreateObject("Excel.Sheet") ' 创建一个表单对象
        form.Name = formName ' 设置表单名称
        form.Activate ' 激活表单
        
        ' 在表单中添加需要的控件和数据
        ' 例如：
        ' form.Cells(1, 1).Value = "姓名"
        ' form.Cells(1, 2).Value = "年龄"
        ' form.Cells(2, 1).Value = "张三"
        ' form.Cells(2, 2).Value = 18
        
    Next i
End Sub

代码功能:

1. 用户输入要生成的表单数量。
2. 循环创建指定数量的表单。
3. 每个表单以 "表单" 加上序号命名。
4. 代码示例中添加了简单的文本内容，可以根据实际需求修改。

使用步骤:

1. 打开 Excel 工作簿。
2. 按 Alt + F11 进入 VBA 编辑器。
3. 在 VBA 编辑器中插入一个新的模块。
4. 将代码复制粘贴到模块中。
5. 运行代码，会弹出提示框要求输入要生成的表单数量。
6. 输入数量后，代码会自动创建对应数量的表单。

注意:

• 代码中创建的是新的 Excel 工作表，而不是表单。
• 您可以根据实际需求修改代码中的控件和数据内容。
• 可以使用其他 VBA 方法添加控件、设置格式等。