Moje doświadczenia z Excelem, Accesem i programowaniem w VBA
ś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

| < Styczeń 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!