如何使用VBA在其他工作簿中插入控件并写入代码

希望楼主耐心揣摩,举一反三

Sub 建立窗体并运行()

    Dim TempForm As Object '采用后期绑定

    Application.VBE.MainWindow.Visible = False  '防止窗口闪动

     Set TempForm = ThisWorkbook.VBProject.VBComponents.Add(3)   '   建立窗体

    With TempForm

        .Properties("Caption") = "智能升宏输入"

        .Properties("Width") = 100

        .Properties("Height") = 100

    End With

   With TempForm.Designer.Controls.Add("forms.ComboBox.1") '创建组合框

        .Left = 10

        .Top = 15

    End With

    With TempForm.Designer.Controls.Add("forms.CommandButton.1") '创建一个按钮

        .Left = 10

        .Top = 45

        .Caption = "输入当前日期"

    End With

    With TempForm.CodeModule  '   为窗体添加代码

        .InsertLines .CountOfLines + 1, "Private Sub UserForm_Activate()"

        .InsertLines .CountOfLines + 2, "Me.ComboBox1.List = Array(""一月"", ""二月"", ""三月"", ""四月"", ""五月"", ""六月"", ""七月"", ""八月"", ""九月"", ""十月"", ""十一月"", ""十二月"")"

        .InsertLines .CountOfLines + 3, "Me.ComboBox1 = WorksheetFunction.Text(VBA.Month(Date), ""[DBNum1][$-804]0月"")"

        .InsertLines .CountOfLines + 4, "End Sub"

        .InsertLines .CountOfLines + 5, "Private Sub ComboBox1_Change()"

        .InsertLines .CountOfLines + 6, "If TypeName(ActiveCell) = ""Range"" Then ActiveCell = Me.ComboBox1.Text"

        .InsertLines .CountOfLines + 7, "End Sub"

  冲核      .InsertLines .CountOfLines + 8, "Private 散笑掘Sub CommandButton1_Click()"

        .InsertLines .CountOfLines + 9, "If TypeName(ActiveCell) = ""Range"" Then ActiveCell = date"

        .InsertLines .CountOfLines + 10, "End Sub"

        End With

    VBA.UserForms.Add(TempForm.Name).Show    '   显示窗体

    ThisWorkbook.VBProject.VBComponents.Remove TempForm '   运行完毕删除窗体

End Sub

第一仿凯步：首先新建一个窗体，双击窗体，复制如下代码进去。Dim Cbtn As New BtnClick '定义Cbtn 一个类名Private Sub UserForm_Initialize()Dim ClickBtn As Object '定义一个对象名悉桥Set ClickBtn = Me.CommandButton1 '给对象名关联按钮对象Cbtn.init ClickBtn '关联BtnClick类End Sub每一行都有解释，就不一一介绍了，很明显的说明。

第二步：新建一睁大猛个类模块，复制如下代码到类模块。'声明一个MSForms.CommandButton对象变量Private WithEvents btnObj As

---