InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Macro Object / RunMacro3 Method
A MacroEnumerationOption Enumeration value that specifies the location of the macro. MacroEnumerationOption_Document specifies a macro in the session document's VBA project. MacroEnumerationOption_Common specifies a macro in the Common VBA project.
The name of the macro to run.
An array of parameters to pass to the macro.
Example
In This Topic
    RunMacro3 Method (Macro)
    In This Topic
    Runs a macro that takes an array of parameters.
    Syntax
    expression.RunMacro3( _
   ByVal macroSource As MacroEnumerationOption, _
   ByVal macroName As String, _
   ByRef macroParameters() As Object _
)
    where expression is a variable that represents a Macro Object

    Parameters

    macroSource
    A MacroEnumerationOption Enumeration value that specifies the location of the macro. MacroEnumerationOption_Document specifies a macro in the session document's VBA project. MacroEnumerationOption_Common specifies a macro in the Common VBA project.
    macroName
    The name of the macro to run.
    macroParameters
    An array of parameters to pass to the macro.
    Example
    The following example demonstrates calling macros that take various parameters. The example also demonstrates a scenario of passing in an invalid parameter type.
    ' Following example provides details on how to use RunMacro3 method
Sub RunMacro3Example()
    
    Dim params() As Variant
 
    params = Array(123, "param 2 data")
    ThisIbmTerminal.Macro.RunMacro3 MacroEnumerationOption_Document, "Module1.MacroWithTwoParam", params
 
    params = Array("param 1 data", 222, "param 3 data")
    ThisIbmTerminal.Macro.RunMacro3 MacroEnumerationOption_Document, "Module1.MacroWithThreeParam", params
 
    ' Example of calling macro with invalid parameter type. Invalid type passed in to parameter 2
    params = Array("param 1 data", "param 2 data", "param 3 data")
    ThisIbmTerminal.Macro.RunMacro3 MacroEnumerationOption_Document, "Module1.MacroWithThreeParam", params
 
End Sub
 
Sub MacroWithTwoParam(param1 As Long, param2 As String)
    MsgBox ("MacroWithTwoParam called with two parameters: param1='" & param1 & "' param2 = '" & param2 & "'")
End Sub
 
Sub MacroWithThreeParam(param1 As String, param2 As Long, param3 As String)
    MsgBox ("MacroWithThreeParam called with three parameter: param1='" & param1 & "' param2 = '" & param2 & "' param3 = '" & param3 & "'")
End Sub
    See Also

    Reference

    Macro Object
    Macro Members

    Send Feedback