1

addin.xlam我有:

Type Quantity
    i As Integer
end type

Sub show_quant(q as Quantiy)
    MsgBox(q.i)
end sub

在打开的工作簿中,我这样做:

Sub load_addin()
    Dim AI As Excel.AddIn
    Set AI = Application.AddIns.Add(Filename:="add_in.xlam")
    AI.Installed = True

    Dim q As Quantity
    show_quant(q)
End Sub

这行不通。Excel 抱怨用户定义的类型尚未定义。

那么如何声明插件中定义的类型的变量呢?

4

0 回答 0