Təbii ki, VBA-dan istifadə edərək başqa bir qovluqda əsas Excel faylından faylı açmağımız lazım ola bilər. Ancaq eyni zamanda, iş dəftərini necə açmaq istədiyimizlə bağlı müxtəlif meyarlarımız var. Dəyişən adı ilə iş kitabını necə aça biləcəyinizi bilməklə maraqlanırsınızsa, bu məqalə sizin üçün faydalı ola bilər. Bu yazıda biz Excel-də VBA-dan istifadə edərək dəyişən adı olan iş kitabını necə aça biləcəyinizi ətraflı izahatlarla müzakirə edəcəyik.

Təcrübə İş Kitabını endirin

Bu təcrübə iş kitabını aşağıda yükləyin.

VBA.xlsm-dən istifadə edərək Dəyişən Adlı İş Kitabını açın

Sample.xlsx

4 Asan Excel-də VBA-dan istifadə edərək Dəyişən Adlı İş Kitabını Açmağın Yolları

Biz nümayiş üçün aşağıdakı verilənlər dəstindən istifadə edəcəyik. Bizdə bir neçə məhsulun İD ilə məhsul məlumatı var. bu, VBA kodundan istifadə edərək açacağımız nümunə fayldır.

1. İş kitabından istifadə. Mülkiyyəti açın

İş dəftərindən istifadə .Open xassəsi ilə biz faylları kataloqu qeyd etməklə və ya yeri qeyd etməməklə aça bilərik. Biz həmçinin açılmış faylı yalnız oxumaq üçün edə bilərik.

1.1 İş kitabını açın Fayl yolunu qeyd edin

Növbəti üsulda biz İş dəftəri.Open Property istifadə edəcəyik. faylı birbaşa qeyd olunan fayl yeri kataloqundan açmaq üçün. Faylın harada yerləşməsindən asılı olmayaraq, biz faylı aça bilərikolan Sub Open_File_with_Add_Property()

⮚ Sonra biz File_Path dəyişənini String tipi olaraq elan edirik.

7463

⮚ Və File_Path dəyişənini faylın yerinə təyin edin.

6406

⮚ wb -ni İş dəftəri tipində dəyişən kimi elan edirik.

8582

⮚ İş kitabı daha sonra İş dəftəri.Əlavə xassəsindən istifadə edərək Fayl_Yol məkanında saxlanılan kataloqdan əlavə edilir.

5127

⮚ Nəhayət, işi bitiririk. bu kodun alt proseduru.

Ətraflı oxuyun: [Sabit!] Metod Obyektin iş dəftərlərinin açılması uğursuz oldu (4 həll yolu)

Nəticə

Xülasə olaraq, VBA-dan istifadə edərək dəyişən adları olan iş dəftərlərini necə aça biləcəyimiz məsələsinə burada 4 müxtəlif nümunə ilə cavab verilir. VBA Macro metodu sıfırdan başa düşmək üçün öncədən VBA ilə əlaqəli bilik tələb edir.

Bu problem üçün, məşq edə biləcəyiniz makro-aktiv iş kitabını yükləmək mümkündür. bu üsullar.

Şərh bölməsi vasitəsilə istənilən sual və ya rəy verməkdən çekinmeyin. Exceldemy icmasının yaxşılaşdırılması üçün istənilən təklif yüksək qiymətləndiriləcək

Addımlar

• Sənədlər qovluğunda saxlanılan faylımız var və onu açmalıyıq.
• Biz fayldan istifadə edəcəyik. dəyişən kimi adlandırın və sonra kiçik VBA makrosundan istifadə edərək faylı açın.
• Faylın dəqiq fayl kataloqu aşağıda xüsusiyyətlər pəncərəsində göstərilir.

• İlk olaraq Developer tabına keçin və Visual Basic üzərinə klikləyin. Əgər sizdə yoxdursa, Tərtibatçı tabını aktivləşdirməlisiniz . Və ya Visual Basic Redaktoru açmaq üçün ' Alt+F11' düymələrini də basa bilərsiniz.

• Sonra yeni dialoq qutusu olacaq, həmin dialoq qutusunda Insert > Module üzərinə klikləyin.

• Sonra, Modul redaktoru pəncərəsində aşağıdakı kodu daxil edin:

1205

• Sonra Modul pəncərə.
• Bundan sonra Görünüş nişanına > Makrolar keçin.
• Sonra Görünüş üzərinə klikləyin Makroslar .

• Makrolara bax seçiminə kliklədikdən sonra indi yaratdığınız makroları seçin. Buradakı ad Open_with_File_Path -dir. Sonra Çalışdır düyməsini basın.

• Bundan sonra Nümunə faylı açılacaq.

🔎 Kodun Dağılımı

8844

⮚ Əvvəlcə alt-adı üçün ad təqdim edirik. Fayl_yolu ilə_açıq olan prosedur.

4266

⮚ Sonra faylın yerini Fayl_yolu dəyişəninə

5550

⮚ qoyduq.Sonra, növü iş kitabı olan wrkbk dəyişənimizi elan edirik.

6300

⮚ Daha sonra File_Path qovluğunda adlanan faylı açıb faylı təyin edirik. wrkbk dəyişəni kimi.

3849

⮚ Nəhayət, bu kodun alt prosedurunu bitiririk.

Ətraflı oxuyun: Necə Excel VBA (4 Nümunə) istifadə edərək İş Kitabını Yoldan Açın

1.2 Fayl yolunu qeyd etmədən İş kitabını açın

Növbəti üsulda biz faylı əsas qovluqdan açacağıq, burada əsas fayl saxlanılır. Fayl kodda heç bir yeri qeyd etmədən açıla bilər. Bu fayl sadəcə ana qovluqla eyni qovluqda olmalıdır.

Addımlar

• Valideyn qovluğun olduğu eyni qovluqda fərqli faylımız var. Excel faylı indi yadda saxlanılır.
• Fayl adı 1-dir.

• İlk olaraq Developer<7-ə keçin> tab və Visual Basic üzərinə klikləyin. Əgər sizdə yoxdursa, Tərtibatçı tabını aktivləşdirməlisiniz . Və ya Siz həmçinin Visual Basic Redaktoru açmaq üçün ' Alt+F11 ' düymələrini sıxa bilərsiniz.

• Sonra yeni dialoq qutusu olacaq, həmin dialoq qutusunda Insert > Module üzərinə klikləyin.

• Sonra, Modul redaktoru pəncərəsində aşağıdakı kodu daxil edin:

1521

• Sonra Modul pəncərə.
• Bundan sonra Görünüş nişanına > Makrolar keçin.
• Sonra Görünüş üzərinə klikləyinMakroslar .

• Makrolara baxmaq seçiminə kliklədikdən sonra indi yaratdığınız makroları seçin. Buradakı ad Open_without_File_Path -dir. Sonra Çalıştır düyməsini basın.

• Çalışdır düyməsini basdıqdan sonra 1 adlı faylın indi açıq olduğunu görəcəksiniz.
• Və biz Excel-də VBA-dan istifadə edərək dəyişən adı olan iş kitabını belə açırıq.

🔎 Dəyişənlərin bölgüsü Kod

5481

⮚ Əvvəlcə alt prosedur üçün Sub Open_without_File_Path()

9773

⮚ Biz elan edirik wrkbk İş Kitabı növündə dəyişən olaraq

9393

⮚ 1.xlsx adlı əsas kataloqdan fayl açırıq.

7617

⮚ Nəhayət, alt proseduru bitiririk. bu kodun.

1.3 İş kitabını Yalnız oxunan kimi açın

Metod birinci metoda çox bənzəyir, lakin burada biz faylı yalnız oxumaq rejimində açacağıq, yəni biz bunu etməyəcəyik. Excel faylında istənilən məlumatı və ya dəyəri dəyişdirə bilir.

Addımlar

• Açmaq istədiyimiz fayl sənəd qovluğunda saxlanılır.
• Və bu, yalnız oxumaq üçün açmaq istədiyimiz fayldır.

• İlk olaraq Tərtibatçı bölməsinə keçin. tab və Visual Basic<7 üzərinə klikləyin>. Əgər sizdə yoxdursa, Tərtibatçı tabını aktivləşdirməlisiniz . Və ya siz həmçinin Visual Basic Redaktorunu açmaq üçün ' Alt+F11 ' düymələrini sıxa bilərsiniz.

• Sonra yenisi olacaq dialoq qutusunda, həmin dialoq qutusunda üzərinə klikləyin > Modulu daxil edin.

• Sonra, Modul redaktoru pəncərəsində yazın aşağıdakı kod:

5038

• Sonra Modul pəncərəsini bağlayın.
• Bundan sonra Görünüş nişanına keçin > Makrolar .
• Sonra Makrolara Baxın üzərinə klikləyin.

• Görünüşünə kliklədikdən sonra Makrolar, indi yaratdığınız makroları seçin. Buradakı ad Open_with_File_Only_Read -dir. Sonra Çalışdır düyməsini basın.

• Çalışdır düyməsini kliklədikdən sonra faylın indi açıldığını görəcəyik. başlıq sətirində göstərildiyi kimi yalnız oxumaq üçün.

🔎 Kodun bölgüsü

6671

⮚ Əvvəlcə, alt prosedur üçün Open_with_File_Read_Only()

1974

⮚ Biz wrkbk -ni İş Kitabı tipində dəyişən elan edirik

4006

⮚ Bundan sonra fayl təyin olunmuş qovluqdan açılacaq və fayl sonuncu arqument tərəfindən yalnız oxumaq üçün təyin ediləcək.

3167

⮚ Nəhayət, biz prosesi bitiririk. bu kodun alt proseduru.

Ətraflı oxuyun: İş kitabını Excel VBA ilə Yalnız oxumaq üçün necə açmaq olar

2. Mesaj qutusundan istifadə

Demək olar ki, əvvəlki üsula bənzər, biz burada Excel-də VBA kodu vasitəsilə faylları aça bilərik, lakin bu halda biz buraya kiçik bir mesaj qutusunu daxil edəcəyik.

Addımlar

• İlk olaraq Developer tabına keçin və Visual Basic üzərinə klikləyin. Əgər sizdə yoxdursa, aktiv etməlisinizTərtibatçı nişanı . Və ya Siz həmçinin Visual Basic Redaktoru açmaq üçün ' Alt+F11' düymələrini basa bilərsiniz.

• Sonra yeni dialoq qutusu olacaq, həmin dialoq qutusunda Insert > Module üzərinə klikləyin.

• Sonra, Modul redaktoru pəncərəsində aşağıdakı kodu daxil edin:

6417

• Sonra Modul pəncərə.
• Bundan sonra Görünüş nişanına > Makrolar keçin.
• Sonra Görünüş üzərinə klikləyin Makroslar .

• Makrolara bax seçiminə kliklədikdən sonra indi yaratdığınız makroları seçin. Buradakı ad Open_File_with_Messege_Box -dir. Sonra Çalışdır düyməsini klikləyin.

• Sonra Faylın Uğurla Açıldığını göstərən xəbərdarlıq qutusunu aldıq .
• Sonra OK düyməsini basın.

• Və sonra faylın indi olduğunu görəcəyik. açın.

• Və sonra kodu bir az dəyişməyə çalışırıq.
• Fayl adını olaraq dəyişdiririk. Nümunə10 və sənədlər qovluğunda əslində Nümunə10 adlı fayl yoxdur.

• Sonra biz Kodu yenidən işlədin və Faylın açılması uğursuz oldu bildirən mesaj qutusu var.
• Bundan sonra OK klikləyin.

🔎 Kodun Dağılımı

1366

⮚ Əvvəlcə alt prosedur üçün ad təqdim edirik. Yalnız_Fayl_Oxu_ilə_açıq()

8854

⮚ Biz wrkbk -ni iş kitabında dəyişən kimi elan et

3359

9759

⮚ Bu sətir Nümunə adlı faylın kataloqda mövcud olub-olmadığını yoxlayacaq, əgər fayl oradadırsa, o zaman faylı açın və eyni zamanda mesajı göstərəcək.

9876

⮚ Əgər kataloqda Nümunə adlı fayl yoxdursa, bu mesaj çatdırılacaq.

5845

⮚ Nəhayət, bu kodun alt prosedurunu bitiririk.

2858

⮚ Nəhayət, bu kodun alt prosedurunu bitiririk.

Daha ətraflı: İş kitabını necə açmaq və VBA-dan istifadə edərək makroyu işə salmaq (4 Nümunə)

3. Faylı açmaq üçün dialoq qutusundan istifadə

Fayl yeri qovluğunun çıxarılması və hər dəfə idxal edilməsi VBA kodunda olduqca çətin olur. Problemi həll etmək üçün istənilən kataloqdan fayl seçmək üçün dialoq qutusundan necə istifadə edə biləcəyinizi göstərəcəyik.

Addımlar

• İndi biz faylı açacağıq. fayl tədqiqatçısı dialoq qutusundan istifadə edərək.
• İlk olaraq Developer tabına keçin və Visual Basic üzərinə klikləyin. Əgər sizdə yoxdursa, Tərtibatçı tabını aktivləşdirməlisiniz . Və ya Siz həmçinin Visual Basic Redaktoru açmaq üçün ' Alt+F11' düymələrini basa bilərsiniz.

• Sonra yeni dialoq qutusu olacaq, həmin dialoq qutusunda Insert > Module üzərinə klikləyin.

• Sonra, Modul redaktoru pəncərəsində aşağıdakı kodu daxil edin:

1383

• Sonra Modulu bağlayın. pəncərə.
• Bundan sonra Görünüş sekmesine keçin > Makrolar .
• Sonra Makrolara Baxın<7 üzərinə klikləyin>.

• Makrolara baxın, kliklədikdən sonra indi yaratdığınız makroları seçin. Buradakı ad Open_File_with_Dialog_Box -dir. Sonra Çalışdır düyməsini basın.

• Və sonra yeni pəncərə açılır. Fayl tədqiqatçısı dialoq qutusunda Nümunə seçin və OK düyməsini basın.

• Sonra adı verilən fayl Nümunə açıldı.
• Və biz Excel-də VBA-dan istifadə edərək dəyişən adı olan iş kitabını belə açırıq.

🔎 Kodun bölgüsü

4069

⮚ Əvvəlcə biz alt prosedur üçün Sub Open_File_with_Dialog_Box()

7441

⮚ Biz Dbox -ni FileDialog type

9504

-də dəyişən kimi elan edirik>Fayl_yolu As String type

6575

⮚ Birinci sətirdən dialoq qutusu olacaq. Növbəti sətir dialoq qutusunun adını və fayl tipini bildirir.

⮚ Dbox.Title dialoq qutusunun başlığını təyin edəcək. və FileType fayl növünü təyin edin.

8246

⮚ Dbox.Filters.Clear diaoq qutusunda tətbiq edilmiş hər hansı əvvəlki filtri siləcək

3836

⮚ Dbox.Show faylda dialoq qutusu görünəcək.

⮚ Bu sətir istifadəçinin birdən çox fayl seçib-seçmədiyini müəyyən edəcək. İstifadəçi daha çox seçərsəbir fayl, bütün prosedur dayanacaq.

9137

⮚ Nəhayət, bu kodun alt prosedurunu bitiririk.

Ətraflı oxuyun: Necə Açılır Excel VBA-dan istifadə edərək Qovluq və Fayl Seçin (4 Nümunə)

4. İş kitabından istifadə edin. Əmlak əlavə edin

Əvvəlki metodlardan fərqli olaraq, əvvəlcədən müəyyən edilmiş kataloqda yeni Excel faylı yaradacağıq. və sonra biz onu İş dəftərindən istifadə edərək açacağıq. əmlak əlavə edin.

Addımlar

• İlk olaraq Developer tabına keçin və Visual Basic<üzərinə klikləyin. 7>. Əgər sizdə yoxdursa, Tərtibatçı tabını aktivləşdirməlisiniz . Və ya Siz həmçinin Visual Basic Redaktoru açmaq üçün ' Alt+F11' düymələrini basa bilərsiniz.

• Sonra yeni dialoq qutusu olacaq, həmin dialoq qutusunda Insert > Module üzərinə klikləyin.

Sonra, Modul redaktoru pəncərəsində aşağıdakı kodu daxil edin:

2189

• Sonra Module pəncərəsini bağlayın.
• Sonra ki, Görünüş nişanına keçin > Makrolar .
• Sonra Makrolara Baxın üzərinə klikləyin.

• Makrolara baxın, kliklədikdən sonra indi yaratdığınız makroları seçin. Buradakı ad Open_File_with_Add_Property -dir. Sonra Çalışdır üzərinə klikləyin.

• Çalışdır düyməsini kliklədikdən sonra yeni faylın indi olduğunu görəcəksiniz. yaradılmış və açılmışdır.

🔎 Kodun Dağılımı

⮚ Əvvəlcə biz təmin edirik. alt prosedur üçün ad