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").CloseCode language: VB.NET (vbnet)
  1. Aşağıdaki kod satırı, ilk açılan/oluşturulan çalışma kitabını kapatır.
Workbooks(1).CloseCode language: VB.NET (vbnet)
  1. Aşağıdaki kod satırı, etkin çalışma kitabını kapatır.
ActiveWorkbook.CloseCode language: VB.NET (vbnet)
  1. Aşağıdaki kod satırı, şu anda açık olan tüm çalışma kitaplarını kapatır.
Workbooks.CloseCode language: VB.NET (vbnet)
  1. Aşağıdaki kod satırı kitap1.xlsx dosyasını açar.
Workbooks.Open ("kitap1.xlsx")Code language: VB.NET (vbnet)

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.

  1. Aç iletişim kutusunu görüntülemek için Uygulama nesnesinin GetOpenFilename yöntemini de kullanabilirsiniz.
Dim dosyam1 As String
dosyam1 = Application.GetOpenFilename()Code language: VB.NET (vbnet)
  1. Bir dosya seçin ve Aç’a tıklayın.
Close - Open

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

  1. Ardından, çalışma kitabını her zamanki gibi açabilirsiniz.
Workbooks.Open (dosyam1)Code language: VB.NET (vbnet)

Yayımlandı

kategorisi

yazarı:

Etiketler: