Combobox ile dosya seçme ?

[Gorarr]

Selamlar, userform daki combobox ile istediğim klasördeki bir dosyayı seçtiğimde, dosya isminin (uzantısız) combobox içine yazılmasını istiyorum.

VBA kodunu yazmamda yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Merhaba,

Dosya seçme işlemini bir butonla yaptığınızı varsaydım. Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Dim Dosya, Dosya_Sistemi
    
    Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyaları (*.xls), *.xls", Title:="Lütfen bir dosya seçiniz...")
    If Dosya = False Then
        MsgBox "Dosya seçimi yapmadığınız için işleminiz iptal edilmiştir.", vbExclamation
        Exit Sub
    Else
        Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
        ComboBox1 = Replace(Dosya_Sistemi.GetFileName(Dosya), "." & Dosya_Sistemi.GetExtensionName(Dosya), "")
    End If
End Sub

 

[Gorarr]

Çok teşekkür ederim. Ellerinize sağlık, istediğimden çok daha işlevsel olmuş.