Makrolar ile Excel Dosya Sayısını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Dosya_Sayisi()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\SXS")
Set dc = f.Files
s = dc.Count
MsgBox s
End SubAçıklama
Excel Makroları ile Dosya Sayısını Bulma isimli kodu kullanarak, klasörlerinizde yer alan dosyaların adetlerini bir MsgBox nesnesinde görüntülersiniz.Kod Açıklaması
"C:SXD" satırını, dosyalarınızı saymak istediğiniz klasör hangisi ise o yol olacak şekilde revize ediniz.Faydalanılması temennisiyle