[حل شده] کد vba برای save as کردن فایل اکسل با فرمت XLMS

[احسان رنجبر]

سلام بر همگی
من کدی میخوام که بتونم از فایل اکسلم با shape که ایجاد کردم یک خروجی با همین فرمت xlms رو بگیرم
نکته خیلی مهم اینه که اگر روی shape که طراحی شده کلیک کردم، فقط عملیات خروجی گرفتن از این فایل انجام بشه و فایل جدیدی که ایجاد شده باز نشه و همین فایل قبلی فعال باشه تا روش کار کنم. و بعدا هر زمان که نیاز شد به فایل جدید رجوع میکنم و کارمو انجام میدم
نمیدونم منظورمو درست رسوندم یانه ،ولی برای مثال اگر از خود اکسل گزینه save asرو بزنید و سیو بشه، اونوقت فایل جدیدی که ایجاد شد زیر دست شمامیاد و باز میشه،نه فایل قدیم.
که من این موضوع نمیخوام انجام بشه فقط میخوام از فایلی که دارم خروجی با فرمت XLMS گرفته بشه و تمام
--------------------------------
البته نام فایلی که فقط قرار است خروجی گرفته شود تشکیل شده باشه از مثلا سلول A1

[میثم مقدم نیا]

سلام بر همگی
من کدی میخوام که بتونم از فایل اکسلم با shape که ایجاد کردم یک خروجی با همین فرمت xlms رو بگیرم
نکته خیلی مهم اینه که اگر روی shape که طراحی شده کلیک کردم، فقط عملیات خروجی گرفتن از این فایل انجام بشه و فایل جدیدی که ایجاد شده باز نشه و همین فایل قبلی فعال باشه تا روش کار کنم. و بعدا هر زمان که نیاز شد به فایل جدید رجوع میکنم و کارمو انجام میدم
نمیدونم منظورمو درست رسوندم یانه ،ولی برای مثال اگر از خود اکسل گزینه save asرو بزنید و سیو بشه، اونوقت فایل جدیدی که ایجاد شد زیر دست شمامیاد و باز میشه،نه فایل قدیم.
که من این موضوع نمیخوام انجام بشه فقط میخوام از فایلی که دارم خروجی با فرمت XLMS گرفته بشه و تمام
--------------------------------
البته نام فایلی که فقط قرار است خروجی گرفته شود تشکیل شده باشه از مثلا سلول A1

سلام
برای این کار میتونید از کد زیر استفاده کنید

Sub filename_cellvalue()

Dim Path As String

Dim filename As String

Path = "C:\Users\Meysam\Desktop\New folder\"

filename = Range("A1")

ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

'مسیر فایل اصلی 
    ChDir "C:\Users\Meysam\Desktop\New folder"

    Workbooks.Open filename:="C:\Users\Meysam\Desktop\New folder\2020.xlsm"



End Sub