帮我用VBA语言写自动化批量生成表单的代码

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

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