Moje doświadczenia z Excelem, Accesem i programowaniem w VBA

Wpisy z tagiem: funkcja UDF

środa, 03 stycznia 2018

W komentarzu pod notką
Odczyt listy plików w katalogu
pojawił się komentarz z pytaniem jak przerobić makro, aby liczyło ilość plików. Przerobiłam makro, przy okazji zmieniając procedurę na funkcję i wyszło mi coś takiego:

Public Function PoliczPliki()
Dim Katalog As String
Dim NazwaPliku As String
Katalog = Range("A1").Value
Katalog = Katalog & "\"
PoliczPliki = 0
NazwaPliku = Dir(Katalog & "*.*")
Do While NazwaPliku <> ""
   PoliczPliki = PoliczPliki + 1
   NazwaPliku = Dir
Loop
End Function


 


 

 

 

 

 

 

 

 Powinno zadziałać, także w folderze sieciowym.



 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA

| < Maj 2018 > |
Pn Wt Śr Cz Pt So N
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      


Książki warte polecenia
zobacz szczegóły...


A tu oferta na dziś:

Wydawnictwo Strefa Kursów



ministat liczniki.org



Napisz do mnie!