Listbox sütunlarına farklı kaynaklardan veri eklemek

[snskutlu]

Merhaba arkadaşlar.

AddItem yöntemiyle bir klasör içindeki excel dosyalarının isimlerini Listbox' a aktarıyorum. Ayrıca her dosyadan bir hücreye ait bilgiyi de dosya isimleriyle birleştiriyorum. Bu konuda bir değişiklik yapmak istedim.
Listbox' ı üç sütuna bölerek ilk sütunda dosyaların isimlerini, ikinci sütünda
"---------------:" şeklinde sabit bir bilgi, üçüncü sütunda ise her dosyadaki bir hücrenin içeriğinin görüntülenmesini istiyorum.
Aşağıda mevcut kodlar var. Yardımlarınız için şimdiden teşekkür ederim.

Private Sub UserForm_Initialize()
Dim hWnd As Long
Dim ds, dc, f, s
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("D:\musteri\musteriler\")
Set dc = f.Files
For Each dosya In dc
listbox1.AddItem dosya.Name & " :" & ExecuteExcel4Macro("'D:\musteri\musteriler\[" & dosya.Name & "]TAHSİLAT TAKİBİ'!R30C4") & " TL"
Next
End Sub

 

[veyselemre]

Private Sub UserForm_Initialize()

dizin = "D:\musteri\musteriler\"

Set dc = CreateObject("Scripting.FileSystemObject").GetFolder(dizin).Files
For Each dosya In dc
    ListBox1.AddItem dosya.Name
    ListBox1.List(a, 0) = dosya.Name
    ListBox1.List(a, 1) = "---------------:"
    ListBox1.List(a, 2) = ExecuteExcel4Macro("'" & dizin & "[" & dosya.Name & "]TAHSİLAT TAKİBİ'!R30C4") & " TL"
    a = a + 1
Next
Set dc = Nothing

End Sub

 

[snskutlu]

veyselemre arkadaşım çok teşekkür ederim.