VBA kullanarak Excel Çalışma Kitabını Açın ve Kapatın

Anonim

Bu yazımızda Excel VBA'da kapatma ve açma yöntemini, çalışma kitabını kapatma ve açık çalışma kitabını kapatmayı öğreneceğiz.

Excel sayfasında komut butonu oluşturup makro atadık.

Activex denetiminin nasıl oluşturulacağını öğrenmek için bağlantıya tıklayın

https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html

VBA üzerinden Excel çalışma kitabı nasıl açılır?

Aşağıda verilen adımları ve kodlamayı izleyin: -

  • 2 Komut Düğmesi yerleştirin.
  • Komut düğmesi üzerinde fareye sağ tıklamak için kullandığımız ilk komut düğmesi.
  • VBE sayfası açılacak ve aşağıdaki kodlamayı kopyalayıp VBE sayfasına yapıştıracaktır.
  • Çalışma kitabını açmak için aşağıda belirtilen makroyu atayın.
Alt sOpenWorkbook()
' dosya adı için değişken tanımlayın
Dize Olarak Dim csFileName
' Sayfa1'deki A1 hücresinden dosya adını al
csFileName = ThisWorkbook.Sheets("Örnek Aç ve Kapat").Range("A1")
' çalışma kitabını aç
Workbooks.Open csFileName
MsgBox csFileName & "açıldı"
Alt Bitiş
  • Komut düğmesi üzerinde fareye sağ tıklamak için kullandığımız ikinci komut düğmesi.
  • VBE sayfası açılacak ve aşağıdaki kodlamayı kopyalayıp VBE sayfasına yapıştıracaktır.
  • Çalışma kitabını açmak için aşağıda belirtilen makroyu atayın.
Alt sCloseWorkbook()
' dosya adı için değişken tanımlayın
Dize Olarak Dim csFileName
' Sayfa1'deki A1 hücresinden dosya adını al
csFileName = ThisWorkbook.Sheets("Örnek Aç ve Kapat").Range("A1")
' çalışma kitabını kapatınWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & "kapalı"
Alt Bitiş

Her iki makro da komut butonlarına atayacaktır, aşağıdaki makro kodlamasını kullanmamız gerekiyor.

Seçenek Açık
Sub sExample()Const csFileName As String = _
"C:\Test\Master.xlsx" Çalışma Kitapları.Open
csFileNameWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).Kapat
Alt BitişAlt sOpenWorkbook()
' dosya adı için değişken tanımlayın
Dize Olarak Dim csFileName
' Sayfa1'deki A1 hücresinden dosya adını al
csFileName = ThisWorkbook.Sheets("Örnek Aç ve Kapat").Range("A1") ' çalışma kitabını aç
Workbooks.Open csFileNameMsgBox csFileName & "açıldı"
Alt BitişAlt sCloseWorkbook()
' dosya adı için değişken tanımlayın
Dim csFileName As String ' Sayfa1'deki A1 hücresinden dosya adını al
csFileName = ThisWorkbook.Sheets("Örnek Aç ve Kapat").Range("A1")
' çalışma kitabını kapatınWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & "kapalı"
Alt Bitiş

Not: - Dosyanıza göre yolu belirtmelisiniz.