Solved: Passing a module as a parameter

[tools]

Hi All,

Is it possible to pass a module as a parameter to a function and use it ?
I have attached an excel sheet for the same.

Thanks & Regards

[Bob Phillips]

Let's take a step back.

What are you trying to achieve?

[tools]

I want to make a common module which would set some variables.
Now the variables that I am setting could have the same name in multiple modules.
I am trying to do this so that I could refer only the variable in the calling module.

Is there a better solution to this ?

Thanks & Regards

[Bob Phillips]

I wouldn't use the same name variable in multipl modules. Without knowing the full detail, I wouldprobably create global arrays, and allocate each module a id number into the array.

[tools]

Consider a case where I am calling web services through my excel add in.
I have 2 modules for 2 different web services.
Each has its own URL which has the same name in both modules.
While sending the data I will call a common function which would decide which URL to set depending on the calling module name.

Is this possible ?

[Bob Phillips]

I can't say that I am getting it yet, but it seems overly complex to me. Why not assign a value to a variable, different depending upon the service.

[Paul_Hossler]

In the attached WB there are 2 modules, each with a similarly named sub

The 'main' sub (drv) and it's called private sub might do what you want, at least as a starting point



Option Explicit
Sub drv()
Call CallModule("Module1", "CommonSub")
Call CallModule("Module2", "CommonSub")
Call CallModule("Module1", "CommonSub")

End Sub

Private Sub CallModule(M As String, S As String)
Application.Run (M & "." & S)

End Sub


Paul

[tools]

Thanks Paul
This is what i wanted :)