Klasör Listeleme ve yazdırmak

[himmety]

merhaba
excell vba ile belli bir klasördeki uzantısı htm olan dosyaları a sütununa listeliyorum. benim istediğim b1 sütununa yazdığım numarayı klasörde bulup yazdırabilirmiyiz.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Set evn = CreateObject("Shell.Application")
    kls = "C:\Klasör"
    yol = CreateObject("Scripting.FilesystemObject").GetAbsolutePathName(kls)
    Set klasor = evn.Namespace(yol)
    Set dosya = klasor.Items()
    For Each dosya In dosya
        If Val(Split(dosya.Name, ".")(0)) = Val(Range("B1").Value) Then
            dosya.InvokeVerbEx "Print"
        End If
    Next
End Sub[/SIZE]

 

[himmety]

merhaba
cevap için teşekkürler, kodu kullandım ancak klasörde bulunan hepsini yazdırıyor b1 (herhangi bir sütun olabilir) yazdığım dosyayı bulup yazdırabilirmiyiz