نحوه باز کردن Workbook با نام متغیر با Excel VBA

Hugh West

10-08-2023 ماکروها & Excel VBA
  • این را به اشتراک بگذارید
Hugh West

به طور طبیعی، ممکن است لازم باشد فایل را از یک فایل والد اکسل با استفاده از VBA در یک دایرکتوری دیگر باز کنیم. اما در عین حال، ما انواع مختلفی از معیارها را نیز در مورد نحوه باز کردن کتاب کار داریم. اگر کنجکاو هستید که بدانید چگونه می توانید یک کتاب کار را با نام متغیر باز کنید، این مقاله ممکن است برای شما مفید باشد. در این مقاله، نحوه باز کردن یک کتاب کار با نام متغیر با استفاده از VBA در اکسل را با توضیحات مفصل توضیح می‌دهیم.

دانلود کتاب تمرین تمرین

این کتاب تمرین را در زیر دانلود کنید.

باز کردن Workbook با نام متغیر با استفاده از VBA.xlsm

Sample.xlsx

4 Easy راه های باز کردن Workbook با نام متغیر با استفاده از VBA در اکسل

ما از مجموعه داده زیر برای نمایش استفاده می کنیم. ما اطلاعات محصول چندین محصول را با شناسه آنها داریم. این یک فایل نمونه است که ما قصد داریم با استفاده از کد VBA آن را باز کنیم.

1. استفاده از Workbook.Open Property

استفاده از Workbook ویژگی Open ، می توانیم فایل ها را با ذکر دایرکتوری یا عدم ذکر مکان باز کنیم. ما همچنین می توانیم فایل باز شده را فقط خواندنی کنیم.

1.1 Open Workbook Mentioning File Path

در روش بعدی، ما از Workbook.Open Property استفاده می کنیم. فایل را مستقیماً از فهرست مکان فایل ذکر شده باز کنید. مهم نیست که فایل در کجا قرار دارد، ما می توانیم فایل را باز کنیمکه Sub Open_File_with_Add_Property()

⮚ سپس متغیر File_Path را به عنوان String type اعلام می کنیم.

3051

⮚ و متغیر File_Path را روی محل فایل تنظیم کنید.

9971

⮚ wb را به عنوان متغیری در نوع Workbook اعلام می کنیم.

6643

⮚ سپس کتاب کار از دایرکتوری ذخیره شده در مکان File_Path با استفاده از ویژگی Workbook.Add اضافه می شود.

3245

⮚ در نهایت، به پایان می رسیم. روش فرعی این کد.

ادامه مطلب: [اصلاح شد!] روش باز کردن کتابهای کار شیء انجام نشد (4 راه حل)

نتیجه

به طور خلاصه، این موضوع که چگونه می توانیم کتابهای کاری را با نام متغیرها با استفاده از VBA باز کنیم، در اینجا با 4 مثال مختلف پاسخ داده شده است. روش VBA Macro به دانش قبلی مربوط به VBA برای درک از ابتدا نیاز دارد.

برای این مشکل، یک کتاب کار با قابلیت ماکرو برای دانلود در دسترس است که می‌توانید تمرین کنید. این روش ها.

در صورت تمایل می توانید هر گونه سوال یا بازخوردی را از طریق بخش نظرات بپرسید. هر پیشنهادی برای بهبود جامعه Exceldemy بسیار قابل قدردانی خواهد بود

به راحتی.

مراحل

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

  • ابتدا، به تب Developer بروید و روی Visual Basic کلیک کنید. اگر آن را ندارید، باید برگه Developer را فعال کنید . یا می‌توانید برای باز کردن Visual Basic Editor « Alt+F11» را فشار دهید.

  • سپس یک کادر محاوره ای جدید وجود خواهد داشت، در آن کادر گفتگو، روی Insert > Module کلیک کنید.

  • بعد، در پنجره ویرایشگر Module ، کد زیر را تایپ کنید: 
2834

  • سپس بسته پنجره ماژول.
  • پس از آن، به برگه نمایش > ماکروها بروید.
  • سپس بر روی نمایش کلیک کنید. ماکروها .

  • پس از کلیک بر روی مشاهده ماکروها، ماکروهایی را که هم اکنون ایجاد کردید انتخاب کنید. نام اینجا Open_with_File_Path است. سپس روی Run کلیک کنید.

  • پس از آن فایل Sample باز می شود.

🔎 تفکیک کد 

2300

⮚ ابتدا نامی برای زیر رویه ای که Open_with_File_Path است.

2262

⮚ سپس، مکان فایل را در متغیر File_Path 

8358

⮚ قرار می دهیم.سپس، متغیر خود را wrkbk ، که نوع آن یک کتاب کار است، اعلام می کنیم.

4890

⮚ سپس، فایلی را که در متغیر دایرکتوری File_Path نامگذاری شده است، باز می کنیم و فایل را تنظیم می کنیم. به عنوان متغیر wrkbk .

6642

⮚ در نهایت، فرآیند فرعی این کد را پایان می دهیم.

بیشتر بخوانید: چگونه Open Workbook از Path با استفاده از Excel VBA (4 مثال)

1.2 Open Workbook بدون ذکر مسیر فایل

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

مراحل

  • ما یک فایل متفاوت در همان فهرستی که والد در آن ذخیره شده است داریم. فایل Excel اکنون ذخیره شده است.
  • نام فایل 1 است.

  • ابتدا به Developer<7 بروید> را بزنید و روی Visual Basic کلیک کنید. اگر آن را ندارید، باید برگه Developer را فعال کنید . یا می توانید برای باز کردن Visual Basic Editor ' Alt+F11 ' را فشار دهید.

  • سپس یک کادر محاوره ای جدید وجود خواهد داشت، در آن کادر گفتگو، روی Insert > Module کلیک کنید.

  • بعد، در پنجره ویرایشگر Module ، کد زیر را تایپ کنید: 
1308

  • سپس بسته پنجره ماژول.
  • پس از آن، به برگه نمایش > ماکروها بروید.
  • سپس بر روی نمایش کلیک کنید.ماکروها .

  • پس از کلیک بر روی مشاهده ماکروها، ماکروهایی را که هم اکنون ایجاد کردید انتخاب کنید. نام اینجا Open_without_File_Path است. سپس روی Run کلیک کنید.

  • پس از فشار دادن Run ، متوجه خواهید شد که فایل با نام 1 اکنون باز است.
  • و اینگونه است که کتاب کار را با نام متغیر با استفاده از VBA در اکسل باز می کنیم.

🔎 تفکیک کد 

1542

⮚ ابتدا، یک نام برای رویه فرعی ارائه می کنیم که به صورت Sub Open_without_File_Path() 

9834

⮚ ما اعلام می کنیم wrkbk به عنوان یک متغیر در Workbook نوع

7313

⮚ فایل را از دایرکتوری والد با نام 1.xlsx باز می کنیم.

7325

⮚ در نهایت، فرآیند فرعی را پایان می دهیم. از این کد.

1.3 باز کردن Workbook به عنوان Read Only

روش کاملاً شبیه روش اول است، اما در اینجا ما فایل را در حالت فقط خواندنی باز می کنیم، به این معنی که ما این کار را انجام نمی دهیم. قادر به تغییر هر داده یا مقداری در فایل اکسل است.

Steps

  • فایلی که می خواهیم باز کنیم در پوشه سند ذخیره می شود.
  • و این فایلی است که می خواهیم به عنوان فقط خواندنی باز شود.

  • ابتدا، به Developer بروید. برگه و روی Visual Basic<7 کلیک کنید> اگر آن را ندارید، باید برگه Developer را فعال کنید . یا می‌توانید « Alt+F11 » را برای باز کردن ویرایشگر ویژوال بیسیک فشار دهید.

  • سپس یک صفحه جدید وجود خواهد داشت کادر محاوره ای، در آن کادر محاوره ای، روی کلیک کنیددرج > Module .

  • بعد، در پنجره ویرایشگر Module ، تایپ کنید کد زیر: 
8594
  • سپس پنجره Module را ببندید.
  • بعد از آن، به برگه View بروید > ماکروها .
  • سپس روی مشاهده ماکروها کلیک کنید.

  • بعد از کلیک بر روی مشاهده ماکروها، ماکروهایی را که همین الان ایجاد کردید انتخاب کنید. نام اینجا Open_with_File_Read_Only است. سپس روی Run کلیک کنید.

  • پس از کلیک بر روی Run ، می بینیم که فایل اکنون باز شده است. به صورت فقط خواندنی، همانطور که در نوار عنوان نشان داده شده است. 

5497

⮚ ابتدا، یک نام برای روش فرعی ارائه می دهیم که Open_with_File_Read_Only() 

3684

⮚ wrkbk را به عنوان متغیر در نوع Workbook اعلام می کنیم 

9739

⮚ سپس فایل از دایرکتوری تعیین شده باز می شود و فایل با آخرین آرگومان فقط خواندنی تنظیم می شود. 

7568

⮚ در نهایت، ما به پایان می رسانیم روش فرعی این کد.

بیشتر بخوانید: نحوه باز کردن Workbook به عنوان Read-Only با Excel VBA

2. استفاده از جعبه پیام

تقریباً مشابه روش قبلی، ما می‌توانیم فایل‌ها را از طریق کد VBA در اینجا در اکسل باز کنیم، اما در این مورد، یک جعبه پیام کوچک در اینجا قرار می‌دهیم.

گام‌ها

  • ابتدا، به تب Developer بروید و روی Visual Basic کلیک کنید. اگر آن را ندارید، باید را فعال کنیدبرگه برنامه نویس . یا می‌توانید برای باز کردن Visual Basic Editor « Alt+F11» را فشار دهید.

  • سپس یک کادر محاوره ای جدید وجود خواهد داشت، در آن کادر گفتگو، روی Insert > Module کلیک کنید.

  • بعد، در پنجره ویرایشگر Module ، کد زیر را تایپ کنید: 
5230

  • سپس بسته پنجره ماژول.
  • پس از آن، به برگه نمایش > ماکروها بروید.
  • سپس بر روی نمایش کلیک کنید. ماکروها .

  • پس از کلیک بر روی مشاهده ماکروها، ماکروهایی را که هم اکنون ایجاد کردید انتخاب کنید. نام اینجا Open_File_with_Messege_Box است. سپس روی Run کلیک کنید.
7>.
  • سپس روی OK کلیک کنید.

    • و سپس خواهیم دید که فایل در حال حاضر است باز کنید.

    • و سپس سعی می کنیم کد را کمی تغییر دهیم.
    • نام فایل را به تغییر می دهیم. Sample10 ، و در واقع هیچ فایلی به نام Sample10 در پوشه اسناد وجود ندارد.

    • سپس ما کد را دوباره اجرا کنید ، و یک کادر پیام وجود دارد که می گوید Opening of the File Failed .
    • کلیک کنید OK بعد از این.

    Open_with_File_Read_Only() 

    6684

    ⮚ ما wrkbk را به عنوان متغیری در Workbook type اعلام کنید 

    2964
    5100

    ⮚ این خط بررسی می‌کند که آیا فایلی با نام Sample در فهرست موجود است یا خیر، اگر فایل وجود دارد، آن را بررسی می‌کند. فایل را باز کرده و در همان زمان پیام را نشان می دهد. 

    2583

    ⮚ اگر فایلی به نام Sample در دایرکتوری وجود نداشته باشد، این پیام تحویل داده می شود. 

    4102

    ⮚ در نهایت به زیر رویه این کد پایان می دهیم. 

    8191

    ⮚ در نهایت به زیر رویه این کد پایان می دهیم.

    ادامه مطلب: نحوه باز کردن Workbook و اجرای ماکرو با استفاده از VBA (4 مثال)

    3. استفاده از کادر گفتگو برای باز کردن فایل

    استخراج دایرکتوری مکان فایل و وارد کردن آنها در هر بار در کد VBA بسیار دست و پا گیر است. برای حل این مشکل، نشان خواهیم داد که چگونه می توانید از یک کادر محاوره ای برای انتخاب فایل از هر دایرکتوری استفاده کنید.

    گام ها

    • اکنون فایل را باز می کنیم. با استفاده از کادر محاوره ای کاوشگر فایل.
    • ابتدا، به برگه Developer بروید و روی Visual Basic کلیک کنید. اگر آن را ندارید، باید برگه Developer را فعال کنید . یا می‌توانید برای باز کردن Visual Basic Editor « Alt+F11» را فشار دهید.

    • سپس یک کادر محاوره ای جدید وجود خواهد داشت، در آن کادر گفتگو، روی Insert > Module کلیک کنید.

    • بعد، در پنجره ویرایشگر Module ، کد زیر را تایپ کنید: 
    5644
    • سپس Module را ببندید. پنجره.
    • بعد از آن، به برگه نمایش > ماکروها بروید.
    • سپس بر روی مشاهده ماکروها<7 کلیک کنید>.

    • پس از کلیک بر روی مشاهده ماکروها، ماکروهایی را که هم اکنون ایجاد کردید انتخاب کنید. نام اینجا Open_File_with_Dialog_Box است. سپس روی Run کلیک کنید.

    • و سپس یک پنجره جدید باز می شود. در کادر محاوره ای کاوشگر فایل، Sample را انتخاب کنید و روی OK کلیک کنید.

    • سپس فایل با نام نمونه باز شد.
    • و اینگونه است که ما کتاب کار را با نام متغیر با استفاده از VBA در اکسل باز می کنیم. 

    7910

    ⮚ Dbox را به عنوان یک متغیر در FileDialog type 

    5153

    ⮚ ما File_Path را به عنوان یک متغیر در <6 اعلام می‌کنیم>File_Path

    As String type 
    6837

    ⮚ یک کادر محاوره ای از خط اول وجود خواهد داشت. خط بعدی نام کادر محاوره ای و نوع فایل را نشان می دهد.

    ⮚ Dbox.Title عنوان کادر محاوره ای را تعیین می کند. و FileType نوع فایل را تنظیم کنید. 

    7538

    ⮚ Dbox.Filters.Clear هر فیلتر قبلی اعمال شده در کادر گفتگو را پاک می کند 

    3837

    ⮚ Dbox.Show کادر محاوره ای را روی فایل نشان می دهد.

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

    4632

    ⮚ در نهایت، فرآیند فرعی این کد را پایان می دهیم.

    بیشتر بخوانید: نحوه باز کردن پوشه و انتخاب فایل با استفاده از Excel VBA (4 مثال)

    4. با استفاده از Workbook.Add Property

    بر خلاف روش های قبلی، ما یک فایل اکسل جدید در یک فهرست از پیش تعیین شده ایجاد خواهیم کرد. و سپس آن را با استفاده از Workbook باز می کنیم. ویژگی را اضافه کنید.

    Steps

    • ابتدا به برگه Developer بروید و روی Visual Basic<کلیک کنید. 7>. اگر آن را ندارید، باید برگه Developer را فعال کنید . یا می‌توانید برای باز کردن Visual Basic Editor « Alt+F11» را فشار دهید.

    • سپس یک کادر محاوره ای جدید وجود خواهد داشت، در آن کادر گفتگو، روی Insert > Module کلیک کنید.

    بعد، در پنجره ویرایشگر Module ، کد زیر را تایپ کنید: 

    8063
    • سپس پنجره Module را ببندید.
    • بعد که، به برگه نمایش > ماکروها بروید.
    • سپس بر روی مشاهده ماکروها کلیک کنید.

    • پس از کلیک بر روی مشاهده ماکروها، ماکروهایی را که هم اکنون ایجاد کردید انتخاب کنید. نام اینجا Open_File_with_Add_Property است. سپس روی Run کلیک کنید.

    • پس از کلیک بر روی Run، متوجه خواهید شد که اکنون یک فایل جدید وجود دارد. ایجاد و باز شد.

    🔎 تفکیک کد

    ⮚ ابتدا، ما ارائه می دهیم نامی برای رویه فرعی

    پست قبلی نحوه ایجاد فرم با لیست کشویی در اکسل
    پست بعدی پیمایش صاف با چرخ ماوس در اکسل (تحلیل دقیق)

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