Bir Klasörde İstediğimiz Adlı Excel Belgesi var mı?

[bezl]

Bir Klasörde Ýstediğimiz Adlı Excel Belgesi var mı?

Bir şirketin unvanından ilk iki kelimesini alıp eğer makroyu çalıştırdığım excel belgesi ile aynı klasörde o adda bir excel belgesi yok ise kaydedecek var ise onu açacak bir makro nasıl yapabilirim.

 

[osmantelci]

sanırım bu makro olur:
Sub Dosya_VarsaAc()
şirketünvanıneredenalınacak = "ÞirketAdı"
yol = Dir(PathName:=ThisWorkbook.Path & "\" & Mid(şirketünvanıneredenalınacak, 1, 2) & ".xls")
If yol = Empty Then
ThisWorkbook.SaveAs Mid(şirketünvanıneredenalınacak, 1, 2)
Else
Workbooks.Open ThisWorkbook.Path & "\" & Mid(şirketünvanıneredenalınacak, 1, 2) & ".xls"
End If
End Sub

 

[bezl]

çok teşekkür ederim