xlsm dosyasının olup olmadığını denetleyen kod

Dim StrDosyaAdi As String



StrDosyaAdi = Dir$(klasöryolu & "\*.xlsm")

if StrDosyaAdi <> "" then 

' xlsm varsa yapılacaklar

else

'yoksa yapılacaklar

end if

yaklaşık olarak yukardakine benzer.