Dosya Adından dosya türü uzantısını kaldırmak

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod satırıyla Dosya adını yazdırabiliyoruz. Ama dosya türünü uzantı olarak yazıyır. Örneğin şöyle
SATISLAR.xlsm
Sadece SATISLAR yazmasını nasıl sağlayabiliriz ?

ThisWorkbook.Name

 

[EmrExcel16]

Deneyiniz.

Msgbox Split(ThisWorkbook.Name,".")(0)

 

[baydeniro]

Deneyiniz.

Msgbox Split(ThisWorkbook.Name,".")(0)

Üstadım çok çok teşekkür ediyorum. Harika bir kod, çok işime yarayacak. Sağlıcakla klaın

 

[EmrExcel16]

Üstadım çok çok teşekkür ediyorum. Harika bir kod, çok işime yarayacak. Sağlıcakla klaın

Rica ederim , kolay gelsin.

 

[halit3]

Alternatif kod:

MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)

 

[baydeniro]

Alternatif kod:

MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)

Üstad çok teşekkür ederim, alternatif bir kod daha oldu, sağolun, varolun, sağlıcakla kalın

 

[Korhan Ayhan]

Alternatif,

Dosya adında nokta sembolü kullanılmadıysa aşağıdaki kodları da deneyebilirsiniz.

MsgBox Left(ThisWorkbook Name, InStr(1, ThisWorkbook Name, ".") - 1)

MsgBox Replace ThisWorkbook Name, ".xlsm", ""

 

[halit3]

bu dosyada üç alternatifi de denedim sonucu siz gözlemleyiniz.

Private Sub CommandButton1_Click()
MsgBox Split(ThisWorkbook.Name, ".")(0)
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
MsgBox Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1)

End Sub

 

[Korhan Ayhan]

Halit Bey,

Dosya isminde nokta kullanılması çok sık olan bir durum olmadığı için alternatifler önerildi.

Tabi ki risklerin önüne geçmek adına sizin önerdiğiniz kod daha sağlıklı sonuç verecektir.

Bu bağlamda kendi mesajıma bir not ekledim.

 

[baydeniro]

Alternatif,

Dosya adında nokta sembolü kullanılmadıysa aşağıdaki kodları da deneyebilirsiniz.

MsgBox Left(ThisWorkbook Name, InStr(1, ThisWorkbook Name, ".") - 1)

MsgBox Replace ThisWorkbook Name, ".xlsm", ""

Korhan Ayhan üstadım çok teşekkür ederim, sağlıcakla kalın

 

[baydeniro]

bu dosyada üç alternatifi de denedim sonucu siz gözlemleyiniz.

Private Sub CommandButton1_Click()
MsgBox Split(ThisWorkbook.Name, ".")(0)
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
MsgBox Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1)

End Sub

halit3 üstadım çok teşekkür ederim, sağlıcakla kalın