ListBoxta Excel dosyalarını listeleme

[Feylosof]

İyi akşamlar diliyorum.

Aşağıdaki Kod ile sadece excel dosyalarını(xlsm-xlsx-xls-xlsb) listboxa listelesin istiyorum. Onun dışında kalan her türlü örneğin pdf dosyalarını dahil etmeyecek şekilde revize edebilir miyiz?

Private Sub UserForm_Initialize()

Dim MyDir As String, MyFile As String
    MyFile = Dir(ThisWorkbook.Path & Application.PathSeparator & "*")
    Do While MyFile <> ""
        ListBox1.AddItem MyFile
        MyFile = Dir
    Loop
End Sub

 

[Haluk]

Private Sub UserForm_Initialize()
    Dim MyDir As String, MyFile As String
    
    MyFile = Dir(ThisWorkbook.Path & "*.xl*")
    
    Do While MyFile <> ""
        ListBox1.AddItem MyFile
        MyFile = Dir
    Loop
End Sub

.

 

[Feylosof]

Teşekkürler sayın @Haluk üstadım.