Excel VBA ile Değişken Adlı Çalışma Kitabı Nasıl Açılır

Hugh West

10-08-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Doğal olarak, dosyayı farklı bir dizinde VBA kullanarak bir üst Excel dosyasından açmamız gerekebilir. Ancak aynı zamanda, çalışma kitabını nasıl açmak istediğimizle ilgili çeşitli kriterlerimiz de var. Bir çalışma kitabını değişken adıyla nasıl açabileceğinizi merak ediyorsanız, bu makale sizin için kullanışlı olabilir. Bu makalede, bir çalışma kitabını değişken adıyla nasıl açabileceğinizi tartışıyoruzayrıntılı açıklamalarla Excel'de VBA kullanma.

Alıştırma Çalışma Kitabını İndirin

Bu alıştırma çalışma kitabını aşağıdan indirin.

VBA.xlsm Kullanarak Çalışma Kitabını Değişken Adı ile Açma

Örnek.xlsx

Excel'de VBA Kullanarak Çalışma Kitabını Değişken Adı ile Açmanın 4 Kolay Yolu

Gösterim için aşağıdaki veri kümesini kullanacağız. Id'leriyle birlikte birkaç ürünün ürün bilgilerine sahibiz. bu, VBA kodunu kullanarak açacağımız örnek bir dosyadır.

1. Workbook.Open Özelliğini Kullanma

Kullanarak Çalışma Kitabı.Aç özelliği ile dosyaları dizin belirterek ya da konum belirtmeden açabiliriz. Ayrıca açılan dosyayı salt okunur yapabiliriz.

1.1 Dosya Yolundan Bahsederek Çalışma Kitabını Açma

Bir sonraki metotta, aşağıdaki yöntemi kullanacağız Çalışma Kitabı.Aç Özelliği Dosyayı doğrudan belirtilen dosya konumu dizininden açmak için. Dosya nerede olursa olsun, dosyayı kolayca açabiliriz.

Adımlar

  • Belgeler klasöründe saklanan ve açmamız gereken bir dosyamız var.
  • Dosya adını bir değişken olarak kullanacağız ve ardından küçük bir VBA makrosu kullanarak dosyayı açacağız.
  • Dosyanın Tam dosya dizini özellikler penceresinde aşağıda gösterilmiştir.

  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin Veya ayrıca ' Alt+F11' açmak için Visual Basic Düzenleyicisi .

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

  • Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 
 Sub Open_with_File_Path() Dim Open_File As String: File_path = "C:\Users\User\OneDrive\Documents\Sample" Dim wrkbk As Workbook Set wrkbk = Workbooks.Open(Filename:=File_path) End Sub

  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Tıkladıktan sonra Makroları Görüntüle, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_with_File_Path . Sonra tıklayın Koşmak .

  • Daha sonra Örnek dosyası açılacaktır.

🔎 Kodun Dağılımı 

 Sub Open_with_File_Path()

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Open_with_File_Path . 

 Dim Open_File As String: File_path = "C:\Users\User\OneDrive\Documents\Sample"

⮚ Ardından, dosyanın konumunu Dosya_Yolu değişken 

 Dim wrkbk As Çalışma Kitabı

⮚ Ardından, değişkenimizi beyan ederiz wrkbk türü bir çalışma kitabı olan. 

 Set wrkbk = Çalışma Kitapları.Aç(Dosyaadı:=Dosya_yolu)

⮚ Ardından, içinde adı geçen dosyayı açıyoruz Dosya_Yolu dizin değişkenini seçin ve dosyayı wrkbk değişken. 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

Daha fazlasını okuyun: Excel VBA Kullanarak Çalışma Kitabını Yoldan Açma (4 Örnek)

1.2 Çalışma Kitabını Dosya Yolundan Bahsetmeden Açma

Bir sonraki yöntemde, dosyayı ana dosyanın kaydedildiği üst klasörden açacağız. Dosya, kodda herhangi bir konum belirtilmeden açılabilir. Bu dosyanın üst klasörle aynı klasörde olması yeterlidir.

Adımlar

  • Ana Excel dosyasının kaydedildiği aynı dizine kaydedilmiş farklı bir dosyamız var.
  • Dosya adı 1'dir.

  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin . veya ' tuşuna da basabilirsiniz. Alt+F11 'yi açmak için Visual Basic Düzenleyicisi .

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

  • Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 
 Sub Open_without_File_Path() Dim wrkbk As Workbook Set wrkbk = Workbooks.Open(Filename:="1.xlsx") End Sub

  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Makroları Görüntüle'ye tıkladıktan sonra, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_without_File_Path Ardından Çalıştır'a tıklayın.

  • Tuşuna bastıktan sonra Koşmak 'yi seçtiğinizde, 1 adlı dosyanın artık açık olduğunu göreceksiniz.
  • Ve Excel'de VBA kullanarak çalışma kitabını değişken adıyla bu şekilde açıyoruz.

🔎 Kodun Dağılımı 

 Sub Open_without_File_Path()

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Sub Open_without_File_Path() 

 Dim wrkbk As Çalışma Kitabı

⮚ Beyan ediyoruz wrkbk Çalışma Kitabı türünde bir değişken olarak 

 Set wrkbk = Çalışma Kitapları.Aç(Dosya Adı:="1.xlsx")

⮚ Adlı üst dizinden dosya açıyoruz 1.xlsx . 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

1.3 Çalışma Kitabını Salt Okunur Olarak Açma

Yöntem ilk yönteme oldukça benzer, ancak burada dosyayı salt okunur modda açacağız, yani Excel dosyasındaki herhangi bir veriyi veya değeri değiştiremeyeceğiz.

Adımlar

  • Açmak istediğimiz dosya belge klasörüne kaydedilmiştir.
  • Bu da salt okunur olarak açmak istediğimiz dosya.

  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin Veya ayrıca ' Alt+F11 ' Visual Basic Düzenleyicisini açmak için.

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

  • Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 
 Sub Open_with_File_Read_Only() Dim wrkbk As Workbook Set wrkbk = Workbooks.Open("C:\Users\User\OneDrive\Documents\Sample", ReadOnly:=True) End Sub
  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Makroları Görüntüle'ye tıkladıktan sonra, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_with_File_Read_Only . Sonra tıklayın Koşmak .

  • Tıkladıktan sonra Koşmak 'ye tıkladığımızda, başlık çubuğunda gösterildiği gibi dosyanın artık salt okunur olarak açıldığını göreceğiz.

🔎 Kodun Dağılımı 

 Sub Open_with_File_Read_Only()

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Open_with_File_Read_Only() 

 Dim wrkbk As Çalışma Kitabı

⮚ Beyan ediyoruz wrkbk Çalışma Kitabı türünde değişken olarak 

 Set wrkbk = Workbooks.Open("C:\Users\User\OneDrive\Documents\Sample", ReadOnly:=True)

Dosya daha sonra belirlenen dizinden açılacak ve dosya salt okunur son argüman tarafından. 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

Daha fazlasını okuyun: Excel VBA ile Çalışma Kitabını Salt Okunur Olarak Açma

2. Mesaj Kutusunu Kullanma

Bir önceki yönteme neredeyse benzer şekilde, Excel'de VBA kodu aracılığıyla dosyaları açabiliriz, ancak bu durumda buraya küçük bir mesaj kutusu ekleyeceğiz.

Adımlar

  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin . veya ' tuşuna da basabilirsiniz. Alt+F11' açmak için Visual Basic Düzenleyicisi .

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

  • Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 
 Sub Open_File_with_Messege_Box() Dim path As String: path = "C:\Users\User\OneDrive\Documents\Sample.xlsx" If Dir(path) "" Then Workbooks.Open (path) MsgBox "Dosya Başarıyla Açıldı" Else MsgBox "Dosyanın Açılması Başarısız Oldu" End If End Sub

  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Tıkladıktan sonra Makroları Görüntüle, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_File_with_Messege_Box . Sonra tıklayın Koşmak .

  • Sonra şu uyarı kutusunu aldık Dosya Başarıyla Açıldı .
  • Sonra tıklayın TAMAM. .

  • Ve sonra dosyanın artık açık olduğunu göreceğiz.

  • Ve sonra kodu biraz değiştirmeye çalışıyoruz.
  • Dosya adını şu şekilde değiştiriyoruz Örnek10 adında bir dosya yoktur ve aslında Örnek10 belgeler klasöründe.

  • O zaman biz Koşmak kodu tekrar girdiğinizde şöyle bir mesaj kutusu çıkıyor Dosyanın Açılması Başarısız .
  • Tıklayın TAMAM. Bundan sonra.

🔎 Kodun Dağılımı 

 Sub Open_File_with_Messege_Box()

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Open_with_File_Read_Only() 

 Dim path As String:

⮚ Beyan ediyoruz wrkbk Çalışma Kitabı türünde bir değişken olarak 

 If Dir(path) "" Then Workbooks.Open (path) 
 MsgBox "Dosya Başarıyla Açıldı" Else

Bu satır, Sample adlı dosyanın dizinde mevcut olup olmadığını kontrol edecek, dosya varsa dosyayı açacak ve aynı zamanda mesajı gösterecektir. 

 MsgBox "Dosyanın Açılması Başarısız"

⮚ Adında bir dosya yoksa Örnek dizinindeyse, bu mesaj iletilecektir. 

 End Eğer

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz. 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

Daha fazlasını okuyun: VBA Kullanarak Çalışma Kitabı Açma ve Makro Çalıştırma (4 Örnek)

3. Dosya Açmak için İletişim Kutusu Kullanımı

Dosya konumu dizinini ayıklamak ve VBA kodunda her seferinde içe aktarmak oldukça zahmetlidir. Sorunu çözmek için, herhangi bir dizinden dosya seçmek için bir iletişim kutusunu nasıl kullanabileceğinizi göstereceğiz.

Adımlar

  • Şimdi dosya gezgini iletişim kutusunu kullanarak dosyayı açacağız.
  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin . veya ' tuşuna da basabilirsiniz. Alt+F11' açmak için Visual Basic Düzenleyicisi .

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

  • Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 
 Sub Open_File_with_Dialog_Box() Dim Dbox As FileDialog Dim File_Path As String Dim wrkbk As Workbook Set Dbox = Application.FileDialog(msoFileDialogFilePicker) Dbox.Title = "Choose and Open " & FileType Dbox.Filters.Clear Dbox.Show If Dbox.SelectedItems.Count = 1 Then File_Path = Dbox.SelectedItems(1) End If Set wrkbk = Workbooks.Open(Filename:=File_Path) End Sub
  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Tıkladıktan sonra Makroları Görüntüle, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_File_with_Dialog_Box . Sonra tıklayın Koşmak .

  • Ardından yeni bir pencere açılır. Dosya gezgini iletişim kutusunda Örnek ve tıklayın TAMAM. .

  • Ardından dosya adı Örnek açıldı.
  • Ve Excel'de VBA kullanarak çalışma kitabını değişken adıyla bu şekilde açıyoruz.

🔎 Kodun Dağılımı 

 Sub Open_File_with_Dialog_Box()

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Sub Open_File_with_Dialog_Box() 

 Dim Dbox As FileDialog

⮚ Beyan ediyoruz Dbox içinde bir değişken olarak DosyaDialoğu tip 

 Dim File_Path As String

⮚ Beyan ediyoruz Dosya_Yolu içinde bir değişken olarak Dosya_Yolu As String tip 

 Set Dbox = Application.FileDialog(msoFileDialogFilePicker) Dbox.Title = "Seç ve Aç " & FileType

İlk satırdan itibaren bir iletişim kutusu olacaktır. Sonraki satır iletişim kutusu adını ve dosya türünü belirtir.

⮚ Dbox.Title iletişim kutusunun başlığını ayarlayacaktır. ve DosyaTürü dosya türünü ayarlayın. 

 Dbox.Filtreler.Temizle

⮚ The Dbox.Filtreler.Temizle diaog kutusunda uygulanan önceki tüm filtreleri temizleyecektir 

 Dbox.Show

⮚ The Dbox.Show iletişim kutusunun dosya üzerinde görünmesini sağlayacaktır.

Bu satır kullanıcının birden fazla dosya seçip seçmediğini belirleyecektir. Eğer kullanıcı birden fazla dosya seçerse, tüm prosedür duracaktır. 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

Daha fazlasını okuyun: Excel VBA Kullanarak Klasör Açma ve Dosya Seçme (4 Örnek)

4. Workbook.Add Özelliğini Kullanma

Önceki yöntemlerin aksine, önceden belirlenmiş bir dizinde yeni bir Excel dosyası oluşturacağız ve ardından Çalışma Kitabı. Ekle mülk.

Adımlar

  • İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın ve Visual Basic . Eğer buna sahip değilseniz Geliştirici sekmesini etkinleştirin . veya ' tuşuna da basabilirsiniz. Alt+F11' açmak için Visual Basic Düzenleyicisi .

  • Ardından yeni bir iletişim kutusu açılacak, bu iletişim kutusunda Ekleme > Modül .

Sonra, içinde Modül editör penceresine aşağıdaki kodu yazın: 

 Sub Open_File_with_Add_Property() Dim File_Path As String: File_Path = "C:\Users\User\OneDocuments\Sample.xlsx" Dim wb As Workbook Set wb = Workbooks.Add(File_Path) End Sub
  • Sonra kapatın Modül Pencere.
  • Bundan sonra, şu adrese gidin Görünüm tab> Makrolar .
  • Daha sonra Makroları Görüntüle .

  • Tıkladıktan sonra Makroları Görüntüle, az önce oluşturduğunuz makroları seçin. Buradaki isim Open_File_with_Add_Property . Sonra tıklayın Koşmak .

  • Tıkladıktan sonra Koş, yeni bir dosyanın oluşturulduğunu ve açıldığını göreceksiniz.

🔎 Kodun Dağılımı

⮚ İlk olarak, alt prosedür için bir isim sağlarız ki bu Sub Open_File_with_Add_Property()

⮚ Sonra beyan ederiz Dosya_Yolu olarak değişken String tip. 

 Dim File_Path As String: File_Path = "C:\Users\User\OneDrive\Documents\Sample.xlsx"

⮚ And set the Dosya_Yolu değişkenini dosyanın konumuna ayarlayın. 

 Dim wb As Çalışma Kitabı

⮚ Beyan ediyoruz wb içinde bir değişken olarak Çalışma Kitabı tip. 

 Set wb = Workbooks.Add(File_Path)

⮚ Çalışma kitabı daha sonra Dosya_Yolu konumunu kullanarak Çalışma Kitabı.Ekle mülk. 

 End Sub

⮚ Son olarak, bu kodun alt prosedürünü sonlandırıyoruz.

Daha fazlasını okuyun: [Düzeltildi!] Nesne Çalışma Kitaplarını Açma Yöntemi Başarısız Oldu (4 Çözüm)

Sonuç

Özetle, VBA kullanarak çalışma kitaplarını değişken adlarıyla nasıl açabileceğimiz konusu burada 4 farklı örnekle yanıtlanıyor. VBA Makro yöntemi için önceden VBA ile ilgili sıfırdan anlamak için bilgi.

Bu problem için, bu yöntemleri uygulayabileceğiniz makro özellikli bir çalışma kitabı indirilebilir.

Yorum bölümü aracılığıyla herhangi bir soru veya geri bildirim sormaktan çekinmeyin. Exceldemy toplum tarafından takdir edilecektir.

Önceki yazı Excel'de Açılır Listeli Form Nasıl Oluşturulur
Sonraki Gönderi Excel'de Fare Tekerleği ile Düzgün Kaydırma (Detaylı Bir Analiz)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.