اجرای ماکرو از داخل یک فایل دیگر اکسل

**پیمان طهماسبی** · 2020/04/30, 01:35

از اساتید عزیز کسی نمی تونه به سوال من جواب بده

**majid_mx4** · 2020/04/30, 02:08

با سلام

دستور زیر دید کلی به این قضیه است .

کد:

Sub Mmir2()
Application.Run "'E:\Input\Data.xlsm'!Module1"
End Sub

و این کل مطلب نیست بلکه شاید تنها نیاز به باز کردن فایل و اجرای ماکرو نباشد بلکه نیاز به اجرای ماکرو و ذخیره تغییرات در فایل مقصد و بسته شدن آن باشد پس میتوانید از دستورات زیر استفاده کنید .

کد:

Sub Mmir()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks("Data.xlsm")
    On Error GoTo 0
    If wb Is Nothing Then Set wb = Workbooks.Open("E:\Input\Data.xlsm")
Application.Run "'E:\Input\Data.xlsm'!Module1"
    ActiveWorkbook.Save
    
    wb.Close False
    Set wb = Nothing
End Sub

پایدار باشید میر