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

Question

如题所述

Answer 1

希望楼主耐心揣摩,举一反三
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