kapalı dosya açta mesaj

[EmirhanG]

Hayırlı akşamlar Arkadaşlar. Makro ile D dikindeki bir çalışma dosyasını açtırabiliyorum, benim istediğim makronun D diskinde açmasını söylediğim dosya varsa açsın yoksada uyarı mesajı vesin ve işlemi iptal etsin istiyorum, konu hakkında yardımcı olacak arkadaşlara şimdiden teşekürler......

 

[N.Ziya Hiçdurmaz]

yanıt

Sub DosyaAc()
On Error Resume Next
yol = Dir("D:\Test.xls")
If yol = "" Then
MsgBox "dosya yok"
End If
Workbooks.Open ("D:\Test.xls")
End Sub

 

[EmirhanG]

teşekürler üstat hayırlı akşamlardiler ve mübarek Ramazan-ı şerifinizide en içten dileklerimle kutlar hayırlara vesile olmasını dilerim inşallah!!!