[حل شده] اجرای ماکرو از داخل یک فایل دیگر اکسل

[پیمان طهماسبی]

با سلام خدمت اساتید محترم
یه سوال دارم از حضورتون
دستور vba برای اجرای ماکروMacro1 که در فایل اکسل DATA از داخل فایل Input چی میشه؟
با تشکر

[پیمان طهماسبی]

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

[majid_mx4]

با سلام

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

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

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

[پیمان طهماسبی]

سپاسگذار و متشکرم