xlmagic.bas

氧化铝生产种分过程粒度预测

Dim MCLUtil As Object
Dim bModuleInitialized As Boolean

Private Sub InitModule()
    If Not bModuleInitialized Then
        On Error GoTo Handle_Error
        If MCLUtil Is Nothing Then
            Set MCLUtil = CreateObject("MWComUtil.MWUtil")
        End If
        Call MCLUtil.MWInitApplication(Application)
        bModuleInitialized = True
        Exit Sub
Handle_Error:
        bModuleInitialized = False
    End If
End Sub

Function mymagic(Optional x As Variant) As Variant
    Dim y As Variant
    Dim xlmagic As Object
    
    On Error Goto Handle_Error
    Call InitModule
    Set xlmagic = CreateObject( "xlmagic.xlmagic.1_0")
    Call xlmagic.mymagic(1, y, x)
    mymagic = y
    Exit Function
Handle_Error:
    mymagic = "Error in " & Err.Source & ": " & Err.Description
End Function