
ذخیره فایل اکسل با ماکرو
به نام خداوند بخشنده و مهربان، در این پست از سایت آموزشی اکسل لرن قصد داریم پیرامون ذخیره فایل اکسل با ماکرو، کدهای مفیدی را خدمت شما عزیزان و سروران گرامی ارائه کنیم لذا از شما هموطن عزیز خواهشمندیم تا پایان این پست ما را همراهی کنید. با تشکر
به ماکروی زیر دقت کنید:

ذخیره فایل اکسل با ماکرو
با استفاده و اجرای قطعه کد ActiveWorkbook.Save قادر به ذخیره سازی فایل اکسل خود خواهید بود.
نکته ای که در این بخش حائز اهمیت می باشد این است که قطعه کد ActiveWorkbook.Save فایل فعلی را همراه با تغییرات جدید برروی فایل قبلی ذخیره خواهد کرد. درحالیکه با استفاده از قطعه کد ActiveWorkbook.SaveAs می توانید محل جدید را برای ذخیره سازی Workbook خود تعیین کنید:

ذخیره فایل اکسل با ماکرو
در خصوص فرمت های ذخیره سازی می توانید از اعداد زیر استفاده کنید(منبع این بخش سایت rondebruin.nl):
- ۵۱ = xlOpenXMLWorkbook (without macro’s in 2007-2016, xlsx)
- ۵۲ = xlOpenXMLWorkbookMacroEnabled (with or without macro’s in 2007-2016, xlsm)
- ۵۰ = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro’s, xlsb)
- ۵۶ = xlExcel8 (97-2003 format in Excel 2007-2016, xls)
حال اگر قصد دارید از دستور Save As در یوزفرم (Userform) خود استفاده کنید، می بایست ابتدا یک فرم همانند تصویر زیر طراحی کنید:

ذخیره فایل اکسل با ماکرو
حال کدهای وی بی ای زیر را در باتن Save As قرار دهید (دانلود کدهای وی بی ای):

ذخیره فایل اکسل با ماکرو
در پایان با کلیک برروی باتن Save As ، آدرس جدید را برای ذخیره سازی فایل اکسل از شما همانند تصویر زیر درخواست می کند:

ذخیره فایل اکسل با ماکرو
دقت نمایید، تکست باکس شماره یک تعیین کننده نام Workbook جهت ذخیره سازی است.
در پایان امیدواریم پست آموزشی ذخیره فایل اکسل با ماکرو مورد رضایت و استفاده شما عزیزان قرار گرفته باشد لذا در صورت وجود هرگونه سوال می توانید آن را در قسمت نظرات برای ما ارسال نمایید. با تشکر
دوستان کدهای وی بی ای این بخش را از لینک زیر دریافت کنید:
https://excellearn.ir/wp-content/uploads/2020/05/Codes.txt
سلام
مهندس اگه بخایم فایلمون سر یه تایم خاصی هی سیو شه چکار باید بکنین؟
مثلا هر ۳۰ ثانیه ی بار خودش هی ذخیره شه
سلام ارادت
یه همچین چیزی نیاز دارید
Sub Macro()
ActiveWorkbook.Save
Application.Ontime Now+TimeValue(“00:10:00″),”Macro”
end sub
ضمن تشکر از مطالب مفید شما، یک سوال دارم که اگه جواب بدین ممنون میشم.
بعد از نوشتن برنامه در ماکرو اکسل، میخوام فایل رو ذخیره کنم. مشکلم اینجاست که می خوام فایلم در پوشه دانلود اکانتم در سیستم جاری ذخیره بشه. یعنی مثلا فایل در پوشه C:\Users\mahdi\Downloads ذخیره بشه و در این آدرس “mahdi” نام یوزر اکانت من است. حالا کد یا دستور لازم رو پیدا نمی کنم.
فقط می دونم دستور userprofile در CMD به آدرسی که در بالا نوشتم اشاره میکنه. ولی پیاده سازی اون رو تو ماکرو نویسی اکسل پیدا نمی کنم.
خیلی ممنونم اگر راهنمایی کنین
سلام ارادت
آقا مهدی حقیقت متوجه نیاز شما نشدم
از طریق ربات زیر وارد گروه پرسش و پاسخ اکسل شوید و مطرح کنید
@Masoudhosseini_bot