Running a macro in another workbook

[Yeoman.jeremy]

Hi there.

I am trying to run a macro from another workboook using

Application.Run "C:\Users\owner\Desktop\Development\Quoting Statistics!RDB_Selection_Range_To_PDF"

But when i try this i get error message

Run time Error'1004':
Application-defined or object-defined error

Help would be much appreciated thanks

 

[excel.vba]

are trying to run RDB_Selection_Range_To_PDF macro
from "C:\Users\owner\Desktop\Development\Quoting Statistics!"?
If so just try this small modification, not sure if that is the reason

Application.Run "C:\Users\owner\Desktop\Development\'Quoting Statistics.xls'!RDB_Selection_Range_To_PDF"

 

[daverunt]

I have a similar problem, I think it's syntax related!. So I used;

ChDir "path"
Application.Run "Filename.xls!MacroName"

 

[excel.vba]

If you're filename has a space in it then its advised to put it in single quotes.
Eg: 'File Name.xls'

see if it works..Let me know if it does..
Thanks

 

[daverunt]

Hi,

this was posted today and works for me - the workbook path needs to be in single quotes. And all the string in double quotes.

http://www.mrexcel.com/forum/showthread.php?t=554676

 

[Yeoman.jeremy]

I have tried al of these ideas, and none of them seem to work.
I end up with the Error

Runtime error '1004':
Application-defined error or object-defined error.

Although, It DOES open up the workbook. Is there maybe some syntax difference for the macro name?

The workbook i am opening with it is a macro enabled workbook, so it's a '.xlsm' file, not the '.xls"

 

[kishorvimal]

use .xlsm instead of .xls in syntax. Also change macro security level as low in the workbook where macro is existing.


Thanks

vimal

 

[Jaafar Tribak]

You are most probably getting that error because the RDB_Selection_Range_To_PDF Macro is located in a Class/Workbook or Sheet module. try placing the Macro in a Standard module and use the Run Method again.

If moving the Macro to a standard module is difficult because other codes will need to be removed as well then you could make the Macro PUBLIC and call it via the GetObject Method .

So if , for example, the RDB_Selection_Range_To_PDF Macro is in the Workbook module you could run it like this after making it Public :

Sub Test()

    Dim oWb As Workbook
    
    Set oWb = GetObject _
    ("C:\Users\owner\Desktop\Development\Quoting Statistics.xlsm")
    
    Call oWb.RDB_Selection_Range_To_PDF

End Sub

 

[Yeoman.jeremy]

use .xlsm instead of .xls in syntax. Also change macro security level as low in the workbook where macro is existing.

Macro security is already at the lowest, and I was using .xlsm in the coding, thanks

You are most probably getting that error because the RDB_Selection_Range_To_PDF Macro is located in a Class/Workbook or Sheet module. try placing the Macro in a Standard module and use the Run Method again.

the macro is located in a standard module i assume, it's not placed in any of the 'Sheet1' or 'Workbook' sections.
Also, what do you mean by 'making it public'?


Is that when it says "Public sub RDB_Selection_Range_To_PDF()"?

would it need to be this anyway?

 

[daverunt]

Hi,

I have created a file called 'Quoting Statistics.xlsm'
with a macro in a standard module called 'RDB_Selection_Range_To_PDF'
with a msgbox.

I have the workbook in a trusted location so there is no issue with macro security when the workbook is opened. You may want to try that option.

I called it from another workbook using

Application.Run [COLOR=blue]"[/COLOR][COLOR=red]'[/COLOR]C:\Documents and Settings\My Name\My Documents\My Macros\Quoting Statistics.xlsm[COLOR=red]'[/COLOR]!RDB_Selection_Range_To_PDF[COLOR=blue]"[/COLOR]

and it displays my message box from the macro RDB_Selection_Range_To_PDF

Note the single/double quotes.