Close - Open

Excel VBA'daki Close ve Open Yöntemi, çalışma kitaplarını kapatmak ve açmak için kullanılabilir. Çalışma Kitapları koleksiyonunun şu anda açık olan tüm Çalışma Kitabı nesnelerini içerdiğini unutmayın.

Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:

1. Aşağıdaki kod satırı, kitap1.xlsm'yi kapatır.

Workbooks("kitap1.xlsm").Close

2. Aşağıdaki kod satırı, ilk açılan/oluşturulan çalışma kitabını kapatır.

Workbooks(1).Close

3. Aşağıdaki kod satırı, etkin çalışma kitabını kapatır.

ActiveWorkbook.Close

4. Aşağıdaki kod satırı, şu anda açık olan tüm çalışma kitaplarını kapatır.

Workbooks.Close

5. Aşağıdaki kod satırı kitap1.xlsx dosyasını açar.

Workbooks.Open ("kitap1.xlsx")

Not: dosya varsayılan dosya konumunuzda depolanıyorsa, dosya yolunu belirtmeden yalnızca kitap1.xlsx dosyasını açabilirsiniz. Varsayılan dosya konumunu değiştirmek için Dosya sekmesinde Seçenekler, Kaydet'e tıklayın.

6. Aç iletişim kutusunu görüntülemek için Uygulama nesnesinin GetOpenFilename yöntemini de kullanabilirsiniz.

Dim dosyam1 As String
dosyam1 = Application.GetOpenFilename()

7. Bir dosya seçin ve Aç'a tıklayın.

Not: GetOpenFilename aslında dosyayı açmaz.

8. Ardından, çalışma kitabını her zamanki gibi açabilirsiniz.

Workbooks.Open (dosyam1)

Paylaş: