Passing an Excel Application as an object to a Function 1

[AgentM]

Can I pass an object of type Excel Application to another
Procedure in VBScript

The Code:
Sub CreateApp()
Dim ExcelApp: Set ExcelApp = CreateObject(Excel.Application)
.... more code
Call_Func(ExcelApp,var)
set excelapp = nothing
end sub

Sub Call_func(app,var)

End sub

**********************************
The code crashes at 'app' in the Call_Func
any ideas why?

Thank you

 

[JohnYingling]

Where is Var Defined?
You should get a syntax error on
Call_Func(ExcelApp,var)
because of the parens. It should be
Call_Func ExcelApp,var
because it is not a function.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[AgentM]

Thank you, got it to work