Dosya adı

[ASLAN7410]

Merhaba, hayırlı sabahlar.

Ekte gönderdiğim excel dosyası açılışta dosyanın adı uzantısı ile birlikte mesaj olarak geliyor..

Yapmak istediğim dosyanın adı uzantısız mesaj olarak gelsin.

Yardımcı olur musunuz?

 

[askm]

Private Sub Workbook_Open()
DosyaAdi = Application.ThisWorkbook.Name
DosyaUzanti = LCase(Mid(DosyaAdi, InStr(1, DosyaAdi, ".", 1) + 1))
SadeceAd = Mid(DosyaAdi, 1, (Len(DosyaAdi) - Len(DosyaUzanti) - 1))
MsgBox SadeceAd, vbInformation
End Sub

 

[ASLAN7410]

Sayın askm, ilginiz için çok teşekkür ediyorum.

Tam istediğim gibi olmuş, ellerinize sağlık.

Hayırlı günler, hayırlı çalışmalar diliyorum.

 

[askm]

Rica ederim. Kolay gelsin.