dosya adı yanına bir hücredeki değeride birleştirmek

[kutlu]

Merhaba arkadaşlar,

Listbox a aşağıda yazılı kodlar sayesinde ilgili klasördeki excel dosyalarının isimlerini sıralayabiliyorum. Buna ek olarak SIRALANAN DOSYA ADLARININ YANINA HER DOSYADA BULUNAN SAYFA2 DEKİ d30 NOLU HÜCRE ÇERİĞİNİN DE birleşmesini istiyorum. Hücrede bir sayı var.

ÖRNEK;
deneme.xls - 300

Kodlar;

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
muslistbox.AddItem dosya.Name
Next
End Sub


Selamlar.

 

[Levent Menteşoğlu]

Aşağıdaki kırmızı satırı ilave ederek denermisiniz.

[vb:1:8c7093fd14]muslistbox.AddItem dosya.Name & ExecuteExcel4Macro("'D:\musteri\musteriler\[" & dosya.Name & "]Sayfa2'!R30C4")[/vb:1:8c7093fd14]

 

[kutlu]

İlgili dosyayı gönderiyorum

Merhaba arkadaşım "Leventm"

Verdiğiniz kodu ekledim. Ancak hata mesajı verdi.İlgili dosya ekte. İlginiz için teşekkür ederim.

 

[veyselemre]

[vb:1:d89d5d98f1]muslistbox.AddItem dosya.Name & " : " & ExecuteExcel4Macro("'D:\musteri\musteriler\[" & dosya.Name & "]TAHSİLAT TAKİBİ'!R30C4")[/vb:1:d89d5d98f1]

 

[kutlu]

Teşekkür ederim. Veyselemre