Vba'da çalışma kitabı nasıl açılır?

VBA kullanarak bir çalışma kitabını açmak için “Workbook.Open” yöntemini kullanmanız ve dosya yolunu belirtmeniz gerekir (çalışma kitabının tam yolunu, uzantı dosya adı ve türüyle birlikte belirttiğinizden emin olun). Bu yöntem, farklı dosya türlerini işlemek için kullanabileceğiniz toplam on beş isteğe bağlı bağımsız değişkene sahiptir.

Bu eğitimde bunu ayrıntılı olarak inceleyeceğiz ve kullanabileceğiniz alternatif bir yönteme bakacağız.

VBA kullanarak çalışma kitabını açma adımları

1. Kodu başlatmak için “Çalışma Kitapları” nesnesini kullanın.
2. Bundan sonra bir nokta (.) yazın ve listeden Aç yöntemini seçin.
3. İlk bağımsız değişkende dosya yolunu belirtin ve onu çift tırnak içine aldığınızdan emin olun.
4. Sonunda çalışma kitabını açmak için kodu çalıştırın.

 Sub vba_open_workbook() Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" End Sub

Yararlı bağlantılar: Makro çalıştırma – Makro kaydedici – Visual Basic Düzenleyici – Kişisel Makrolar El Kitabı

Workbook.Open Söz Dizimi

Şimdi yukarıdaki örnekte kullandığınız yöntemin sözdizimine bakmanın zamanı geldi. Bahsettiğim gibi kullanabileceğiniz on beş argüman var:

 expression.Open (FileName, UpdateLinks, _ ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, _ Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Bu argümanların hepsini kullanmayacaksınız. Ancak bunlardan birkaçı oldukça önemlidir ve gerçek dünyada işinize yarayabilir.

Parola korumalı bir çalışma kitabını açma

Parola korumalı bir çalışma kitabı açmak istiyorsanız bu durumda parola argümanıyla parolayı belirleyebilirsiniz.

Burada masaüstünde “test123” şifresine sahip bir çalışma kitabım var ve şimdi onu aynı anda açıp korumasını kaldırmak istiyorum. İşte kullanmam gereken kod.

 Workbooks.Open "C:UsersDellDesktopmyFile.xlsx", , , Password:="test123"

Salt okunur bir çalışma kitabını açma

Salt okunur bir çalışma kitabını açtığınızda, aynı çalışma kitabında değişiklik yapamazsınız ancak bir kopyasını kaydetmeniz gerekir.

 Workbooks.Open "C:UsersDellDesktopFolder1.xlsx", , True

Bir klasördeki tüm çalışma kitaplarını aç

 Sub vba_open_multiple_workbooks_folder() Dim wb As Workbook Dim strFolder As String Dim strFile As String strFolder = "C:UsersDellDesktopFolder" strFile = Dir(strFolder & "*.xls*") Do While strFile <> "" Set wb = Workbooks.Open(strFolder & strFile) strFile = Dir Loop End Sub

İhtiyaçlarınıza göre kullanmak için klasör yolunu değiştirdiğinizden emin olun.

Çalışma Kitabı Dosyasını Açma İletişim Kutusu

 Sub vba_open_dialog() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) End Sub