Kapalı Dosya Açık Kapat veya Kapalı İse Aç

[ahmed_ummu]

Merhaba arkadaşlar.

Kapalı bir dosyada çalışırken, dosya daha önce açık ise "Bu dosya zaten açık" uyarısı vermesin istiyorum. Veya kapatılacağı zaman, kapalı ise de uyarı vermesin istiyorum.

Veya

Eğer dosya açık ise kapat
else (kapalı ise)
dosyayı aç
end if

Diye bir kod var mıdır. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim WB As Workbook, File_Name As String
    
    File_Name = "Deneme.xlsm"
    
    On Error Resume Next
    Set WB = Workbooks(File_Name)
    On Error GoTo 0
    
    If WB Is Nothing Then
        Set WB = Workbooks.Open(File_Name, False, False)
    Else
        WB.Activate
    End If
End Sub

 

[ahmed_ummu]

Deneyiniz.

Option Explicit

Sub Test()
    Dim WB As Workbook, File_Name As String
  
    File_Name = "Deneme.xlsm"
  
    On Error Resume Next
    Set WB = Workbooks(File_Name)
    On Error GoTo 0
  
    If WB Is Nothing Then
        Set WB = Workbooks.Open(File_Name, False, False)
    Else
        WB.Activate
    End If
End Sub

Korhan bey çok teşekkür ederim. Bu kod açık ise kapat, kapalı ise aç için mi?

Dosya açık iken, dosya zaten açık, yeniden açılsın mı diye uyarı veriyor.

 

[ahmed_ummu]

Dosya kapalı ilen de dosya bulunamadı diye hata veriyor.

Belirtmeyi unuttum. Kapalı dosyalar, çalışma kitabının bulunduğu klasörde. Ondan hata veriyor olabilir mi?

 

[Korhan Ayhan]

Kod genel bir kontrol için...

If koşul bloklarını kendi isteğinize göre şekillendirebilirsiniz..

Hatta koda klasör yolunu da eklememiz daha doğru olacaktır.

Option Explicit

Sub Test()
    Dim WB As Workbook, File_Path As String, File_Name As String
    
    File_Path = ThisWorkbook.Path
    File_Name = "Deneme.xlsm"
    
    On Error Resume Next
    Set WB = Workbooks(File_Name)
    On Error GoTo 0
    
    If WB Is Nothing Then
        Set WB = Workbooks.Open(File_Path & Application.PathSeparator & File_Name, False, False)
    Else
        WB.Activate
    End If
End Sub

 

[ahmed_ummu]

Kod genel bir kontrol için...

If koşul bloklarını kendi isteğinize göre şekillendirebilirsiniz..

Hatta koda klasör yolunu da eklememiz daha doğru olacaktır.

Option Explicit

Sub Test()
    Dim WB As Workbook, File_Path As String, File_Name As String
   
    File_Path = ThisWorkbook.Path
    File_Name = "Deneme.xlsm"
   
    On Error Resume Next
    Set WB = Workbooks(File_Name)
    On Error GoTo 0
   
    If WB Is Nothing Then
        Set WB = Workbooks.Open(File_Path & Application.PathSeparator & File_Name, False, False)
    Else
        WB.Activate
    End If
End Sub

Teşekkürler Korhan bey.