Új hozzászólás Aktív témák

• #32309 bsasa1 csendes tag alfa20 #32305

  Új Válasz 2016-08-12 15:43:15 #32309

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsasa1

  csendes tag

  válasz alfa20 #32305 üzenetére

  Szia, persze simán.

  Sub szamol()

Dim FolderPath As String, path As String, count As Integer

FolderPath = "mappa teljes elérési útja"
path = FolderPath & "\*.xls"
Filename = Dir(path)

Do While Filename <> ""
count = count + 1
Filename = Dir()
Loop

'count tartalmazza a .xls fájlok számát a mappában, ha xlsx, akkor fent is .xlsx

End Sub

Új hozzászólás Aktív témák