UserForm üzerindeki butonlar ile klasör içindeki klasörden dosya açmak

[alperener]

Farklı klasör içindeki Excel dosyasını userform butonu ile açma

Sayın Orion1 dosyayı gönderdim.Sorun 9-Analiz dosyası açık olduğunda "dosya zaten açık..." ifadesinin gelmemesi ve debug vermemesi.Teşekkür ederim.

 

[Orion1]

Kırmızı satırları koydum.oldu.
Ancak şunu unutmayın.
Daha önce o kitap açıkken kaydedilmemişse bu açılışnda önce açılan dosya kapatılcak.Kapanırken kaydedilmemişse yazılan veriler kaybolacak.
Dosya ektedir.

Private Sub CommandButton3_Click()
[B][COLOR="Red"]Application.DisplayAlerts = False[/COLOR][/B]
 If Workbooks.Open(ThisWorkbook.Path & "\KLASİK SINAVLAR\9.SINIFLAR TARİH I\9-A SINAV ANALİZİ.xls").ReadOnly = True Then
        Workbooks("9-A SINAV ANALİZİ.xls").Close True
    End If
[B][COLOR="Red"]Application.DisplayAlerts = True[/COLOR][/B]
    Unload Me
    ThisWorkbook.Close True
End Sub

 

[alperener]

Teşekkürler Orion1.