Dosya Adını MsgBox ile Uzantısız Alma

[hakki83]

Merhaba, saygılar hocalarımız

Örnek dosyada mesaj kutusunda, dosya adını .xlsm kısmı olmadan alabilmemiz mümkün mü?

Yani sadece istanbul-izmir yazacak.

.xlsm kısmı yazmayacak.

 

[dEdE]

Aşağıdaki kodu dener misiniz?

Sub Düğme1_Tıkla()
x = Split(ThisWorkbook.Name, ".")
MsgBox "Bu dosyanın adı: " & x(0) & " dosyasıdır."
End Sub

 

[hakki83]

Hatasız olmuştur Dede hocam.
Emeğinize sağlık.

 

[Korhan Ayhan]

Alternatif...

Soru - Resim adını istenen hücreye yazdırmak.

Merhaba arkadaşlar. Şunu yapmak mümkün mü? (Gerçi işin uzmanlarına mümkün olmayan bir excel işlemi yok gibi :) Çalışma kitabımda kodu çalıştırdığımda dosya seçme yolu açılacak. Ben aradığım klasör içerisindeki resim formatındaki veriyi seçtiğimde, resmin adını belirlediğim hücreye yazacak...

www.excel.web.tr

 

[hakki83]

Alternatif...

Soru - Resim adını istenen hücreye yazdırmak.

Merhaba arkadaşlar. Şunu yapmak mümkün mü? (Gerçi işin uzmanlarına mümkün olmayan bir excel işlemi yok gibi :) Çalışma kitabımda kodu çalıştırdığımda dosya seçme yolu açılacak. Ben aradığım klasör içerisindeki resim formatındaki veriyi seçtiğimde, resmin adını belirlediğim hücreye yazacak...

www.excel.web.tr

Korhan hocam mesela şu satırı hem hücre hem de msgbox için denedim, ikisinde de boş çıktı.
Nereyi yanlış yaptım acaba

Range("A1") = VBA.CreateObject("Scripting.FileSystemObject").GetBaseName(My_File)

 

[halit3]

Alternatif

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

 

[dEdE]

Belki işe yarar.

Sub Dosya()
    With CreateObject("Scripting.FileSystemObject")
        Filename = .GetFileName(ThisWorkbook.FullName)
        extName = .GetExtensionName(ThisWorkbook.FullName)
        BaseName = .GetBaseName(ThisWorkbook.FullName)
        parentName = .GetParentFolderName(ThisWorkbook.FullName)
    End With
    MsgBox Filename
    MsgBox extName
    MsgBox BaseName
    MsgBox parentName
End Sub

 

[hakki83]

Hepsi de işe yaradı Dede hocam, sağ olunuz.

 

[Korhan Ayhan]

Parantez içinde kullanılan değişkeni düzeltmeniz gerekirdi.

My_File