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.
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.