Excel VBA代码封装成Dll(VB6.0)： Activex DLL窗体的封装与VBA调用过程

想封装窗体代码，在VB工程资源管理器中右键插入窗体，和VBA的操作一样。

Activex DLL Project

Step 1. 在Activex DLL Project中插入窗体AboutForm

Step 2.设计窗体AboutForm

接上例，在窗体插入了一个按钮，功能是点击按钮，就能显示窗体。

Sub 显示VB6窗体()
    Dim vbf As VBform      '声明窗体
    Set vbf = New VBform
    Load vbf               '加载窗体
    vbf.Show vbModal       '显示窗体
    set vbf =Nothing       '释放对象
End Sub

Step 3：添加类模块ClassModule3_ReisterCode

'类模块添加如下代码，方便在VBA中调用

Sub ShowAboutUsForm()

    frmAbout.Show 0

End Sub

Excel VBA 调用

Private Sub CommandButton3_Click()

    Dim ClassModule3_ReisterCode As New ClassModule3_ReisterCode

    ClassModule3_ReisterCode.ShowAboutUsForm

    Set ClassModule3_ReisterCode = Nothing   '释放类资源

End Sub

调用后在VBA中使用：

Sub 显示VB6form()
    Dim vbclass As New 删除重复模块
    vbclass.显示VB6窗体
End Sub