• چگونه از Application.Run در اکسل استفاده کنم

    چگونه از Application.Run در اکسل استفاده کنم
    When you want to run a macro from an event or from another macro in the same workbook you can call the macro like this in your code : Call YourMacroName You do not have to use Call but I think it is clearer when you read the code that another macro is called. But what if you want to run a macro that is in another workbook or Add-In(File or add-in must be open). We can use Application.Run if we want that like this : Application.Run "Book1.xls!MyMacroName" If the workbook name includes spaces or some other particular characters it is necessary to enclose the name with single quotes, like this : Application.Run "'Book 1.xls'!MyMacroName" It does not do any harm to use the single quotes even if not needed, and always include them if the workbook name is not known in advance, for example if the workbook name is a variable like this Application.Run "'" & strFileName & "'!MyMacroName" Note: If your workbook name contains apostrophe (') characters, such as in "Joe's Workbook.xls", then you need to double-up the apostrophes like Application.Run "'Joe''s Workbook'!MyMacroName" Callbacks instead of macros in Excel 2007 -2016 But what if you use Excel 2007-2016 and use custom Ribbon controls with callbacks. A normal macro looks like this : Sub TestMe() MsgBox "Hi there" End Sub And a callback looks like this : Sub TestMe(control As IRibbonControl) MsgBox "Hi there" End Sub You will notice that the Application.Run examples above will not work when you want to run a callback in another workbook or Add-in. Also Call MyMacroName will not work to call a callback in the same workbook. But we can do this to call a callback in the same workbook : Sub test1() Dim obj As Object TestMe obj End Sub Or to call a callback in an add-in or another workbook use : Sub test2() Dim obj As Object Application.Run "'RDBMerge.xlam'!RunRDBMergeForm", obj End Sub Note: Instead of a object you can also use IRibbonControl like this : Sub test3() Dim IRCdummy As IRibbonControl TestMe IRCdummy End Sub Check if file or add-in is open Before you try to run the Application.Run line that call a macro or callback in another workbook or add-in you can test if the workbook or add-in is open with the code below. Sub ErrorTest() Dim TestWkbk As Workbook Dim obj As Object Set TestWkbk = Nothing On Error Resume Next Set TestWkbk = Workbooks("RDBTestAdd-in.xlam") On Error GoTo 0 If TestWkbk Is Nothing Then MsgBox "Sorry the File is not open, it is not possible to run the macro." & _ " But you can add code here to open the workbook or add-in." Else MsgBox "Use one of the two lines below to call the callback or macro" 'Run a callback in a Excel 2007-2016 workbook/add-in 'Application.Run "'" & TestWkbk.Name & "'!RunMyMacro", obj 'If you want to run a macro in a Excel 97-2016 workbook/add-in use 'Application.Run "'" & TestWkbk.Name & "'!RunMyMacro" End If End Sub Tip: You could replace the MsgBox that says that the file is not open with code that opens the workbook/add-in. Set TestWkbk = Workbooks.Open("C:\YourPathToTheAddin\RDBTestAdd-in.xlam") Do not forget to check if opening the file was succesful in the code before you try to call the macro or callback. Returning values from functions or passing arguments to functions or macros Another way to test if a workbook/add-in is open is to call a function like this with as argument the workbook name that you want to check. Function IsOpen(WBname As String) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Workbooks(WBname) If Err = 0 Then IsOpen = True End Function But how do we use this function if it is not in the same workbook, you can use this to check if there is a file named RDBMerge.xlam open. Dim MyResult As Boolean MyResult = Application.Run("'" & TestWkbk.Name & "'!IsOpen", "RDBMerge.xlam") Or use this to call a macro/function with arguments Application.Run "'" & TestWkbk.Name & "'!MacroNameHere", "parm1", "parm2"
    نظرات ارسال شده ارسال نظر جدید
    برای تبادل نظر، می بایست در سایت وارد شوید

    ورود به سایت
تماس سبد خرید بالا