ActiveWorkbook.Path Kontrolü

[ECYavuz]

İyi Günler, Gününüz aydın olsun...

Aşağıdaki kod ile ASIL_Kitap açıldığında tuşa basılıp HEDEF_KİTAP tan bazı bilgileri alması isteniyor. Görüldüğü gibi her ikisinin de (Daha doğrusu HEDEF_KİTAP ın ASIL_KİTAP ile) aynı "Dir" veya "Path" de olması gerekiyor.

Set HEDEF_KİTAP = Workbooks.Open(ActiveWorkbook.Path & "\ExcelProgram.xls", False, False)

ataması sırasında HEDEF_KİTAP bulunamaz ise programı kesmeden bizi uyaracak bir kod yazılabilirmi??

Şimdiden Teşekkürler....

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

Dim ASIL_KİTAP As Workbook

Dim HEDEF_KİTAP As Workbook

Set ASIL_KİTAP = ActiveWorkbook

Set HEDEF_KİTAP = Workbooks.Open(ActiveWorkbook.Path & "\ExcelProgram.xls", False, False)

ASIL_KİTAP.Activate

...................
...................
...................

Application.ScreenUpdating = True
End Sub
Not; Korhan Ayhan arkadaşımıza programda buraya kadar gelmeme yardımcı olduğu için ayrıca ve tekrar teşekkürler..

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

If Dir(ActiveWorkbook.Path & "\ExcelProgram.xls") = "" Then
    MsgBox "Hedef Kitap yok..!!"
End If

 

[ECYavuz]

Üstat çok sağol... Koca bir teşekkür...

 

[Orion1]

Üstat çok sağol... Koca bir teşekkür...

Rica ederim.İyi çalışmalar.