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

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

دستور Workbooks.Open در VBA اکسل

از دستور Workbooks.Open در VBA اکسل به منظور باز کردن فایل Workbook مورد استفاده قرار می گیرد. به عنوان مثال:

sub Macro1()
Workbooks.Open("D:\Workbook\Dates.xlsx")
end sub

1

2

3

sub Macro1()

Workbooks.Open("D:\Workbook\Dates.xlsx")

end sub

با اجرای ماکروی فوق، کارپوشه ی بنام Dates با پسوند xlsx از آدرس درج شده اجرایی خواهد شد.

دستور Application.GetOpenFileName در VBA اکسل

به منظور درک بهتر این دستور، تصویر کنید قصد دارید یک Workbook دیگر را از محیط برنامه اکسل باز کنید. مسیر زیر را در محیط برنامه اکسل طی خواهید کرد:

همانند تصویر زیر:

دستور GetOpenFileName هم اشاره به سربرگ File و بخش Open دارد. حال به ماکروی زیر دقت کنید:

Sub Macro1()
Dim strfile as string
strfile = application.GetOpenFilename()
Workbooks.Open(strfile)
End sub

1

2

3

4

5

Sub Macro1()

Dim strfile as string

strfile = application.GetOpenFilename()

Workbooks.Open(strfile)

End sub

با اجرای ماکروی فوق، دستور Application.GetOpenFileName اقدام به باز کردن پنجره زیر خواهد نمود:

حال با انتخاب فایل اکسل، مسیر فایل اکسل را در متغیر strFile قرار می دهد و در پایان نیز این مسیر را برای باز کردن فایل اکسل در اختیار دستور Workbooks.Open قرار می دهد.

به منظور درک بهتر شما عزیزان یک ویدیو آموزشی تهیه گردیده است که می توانید در ادامه آن را مشاهده نمایید:

در پایان امیدواریم مقاله آموزشی نحوه باز کردن فایل اکسل توسط کدهای VBA مورد تایید و رضایت شما عزیزان قرار گرفته باشد لذا در صورت وجود هرگونه سوال می توانید آن را در قسمت نظرات برای ما ارسال نمایید تا در اسرع وقت پاسخگوی آن باشیم. با تشکر

دستور Workbooks.Open در VBA اکسل

دستور Application.GetOpenFileName در VBA اکسل

پیشنهاد ما به شما