Run/Call module in multiple Workbooks.

[lashings1986]

I am trying to run a macro in a workbook that opens other workbooks in a file and runs all the vba in Module2 of each specific workbook.

Module2 is different in each of the workbooks

This is the code i am using. It runs through each of the workbooks perfectly I just need it to run the Module2 vba from each workbook. Tried using call function also but doesn't seem to work.

it is the line in bold

Any help would be great.

Sub BatchProcessing()
myPath = "C:\Users\bloomberg\Desktop\updated Morning update models VBA TESTS v2"
MyTemplate = "*.xls*" ' Set the template.
MyName = Dir(myPath & MyTemplate) 'Retrieve the first file
Do While MyName <> ""
Workbooks.Open myPath & MyName
Application.run (module2.updateflagship)
Workbooks(MyName).Close 'close
MyName = Dir 'Get next file
Loop
End Sub



Thanks

 

[Jaafar Tribak]

Try this:

Sub BatchProcessing()
    myPath = "C:\Users\bloomberg\Desktop\updated Morning update models VBA TESTS v2"
    MyTemplate = "*.xls*" ' Set the template.
    MyName = Dir(myPath & MyTemplate) 'Retrieve the first file
    Do While MyName <> ""
        Application.Run "'" & myPath & MyTemplate & "'!Module2.updateflagship"
        Workbooks(MyName).Close 'close
        MyName = Dir 'Get next file
    Loop
End Sub

 

[lashings1986]

Thanks for your response.

I tried your code.

I received a run time error '1004' "the macro not be available in the workbook or all macros may be disabled"

any ideas?

thanks very much

 

[Jaafar Tribak]

Have you added a "" at the end of the Path ?

[COLOR=#333333] Application.Run "'" & myPath & [/COLOR][COLOR=#ff0000][B]"\"[/B][/COLOR][COLOR=#333333] &  MyTemplate & "'!Module2.updateflagship"[/COLOR]

 

[lashings1986]

tried it with the "" inserted but still no luck.

the path is in " "

it looks like this now

Sub BatchProcessing()
myPath = "C:\Users\bloomberg\Desktop\updated Morning update models VBA TESTS v2"
MyTemplate = "*.xls*" ' Set the template.
MyName = Dir(myPath & MyTemplate) 'Retrieve the first file
Do While MyName <> ""
Application.run "'" & myPath & "/" & MyTemplate & "'!Module2.updateflagship"
Workbooks(MyName).Close 'close
MyName = Dir 'Get next file
Loop
End Sub


thanks for the help

 

[Jaafar Tribak]

should be like this with a slash:

[COLOR=#333333][COLOR=#333333] Application.Run "'" & myPath & [/COLOR][/COLOR][COLOR=#ff0000][B]"\"[/B][/COLOR][COLOR=#333333][COLOR=#333333] &  MyTemplate & "'!Module2.updateflagship"[/COLOR][/COLOR]

Not with a forward slash

If that still doesn't work then are you sure the Macro name is correct as well as the host module in each workbook that you are opening ?

 

[lashings1986]

tried it with the \ still no good.

I just checked the first workbook that the code opens and Module2 when opens contains the following on the first line:

sub UPDATEFLAGSHIP ()

this should be fine shouldn't it? the code should find this?

it is falling down on this first workbook and kicking me out of excel.

Very annoying when i have done so much work to get to the point of just opening and running all the code ive built.

thanks again.

 

[Jaafar Tribak]

Try opening only one workbook (forget the Do While for now) and see what you get .

Also, try it with the workbook already open.

 

[lashings1986]

I tried without the Do while and the loop and also with the file open. neither worked i got the same error.

I replaced the run module2 code with a simple workbook.save and it ran through all the files perfectly. So it is something on that line of code that it does not like. Is it possible to link directly to the macro and not the module? or the module and not the macro?

 

[Jaafar Tribak]

I think, you should be able to omit the word Module2 .. like this :

[COLOR=#333333][COLOR=#333333] Application.Run "'" & myPath & [/COLOR][/COLOR][COLOR=#ff0000][B]"\"[/B][/COLOR][COLOR=#333333][COLOR=#333333] &  MyTemplate & "'!updateflagship"[/COLOR][/COLOR]

I'll be leaving shortly so I hope someone will jump in to help you if you have still not solved the problem.

Good luck.