rapportnummer

[Ron321]

Is het mogelijk om excel een rapportnummer te laten genereren door het aantal bestanden te tellen in twee mappen en daar 1 bij op te tellen?

 

[nire]

In VB Editor moet je wel even via Tools->References de optie Microsoft Scripting Runtime aanvinken.

Function countFiles()
    Dim fso As New FileSystemObject
    Dim cntFolder1 As Integer
    Dim cntFolder2 As Integer
        
    cntFolder1 = fso.GetFolder("C:\Folder1").Files.Count
    cntFolder2 = fso.GetFolder("C:\Folder2").Files.Count
    
    countFiles = cntFolder1 + cntFolder2 + 1

End Function

 

[Ron321]

Oké, bedankt!
Ik ga het eens uitproberen.

 

[Wigi]

En als je de Microsoft Scripting Runtime niet wenst te gebruiken, dan zijn alternatieven:

- de Dir() functie
- Application.FileSearch (tot en met Excel 2003)

Wigi

 

[Ron321]

In VB Editor moet je wel even via Tools->References de optie Microsoft Scripting Runtime aanvinken.

Function countFiles()
    Dim fso As New FileSystemObject
    Dim cntFolder1 As Integer
    Dim cntFolder2 As Integer
        
    cntFolder1 = fso.GetFolder("C:\Folder1").Files.Count
    cntFolder2 = fso.GetFolder("C:\Folder2").Files.Count
    
    countFiles = cntFolder1 + cntFolder2 + 1

End Function

Ik heb het geprobeerd maar ik krijg het niet gekoppeld aan een cel waarin het nummer moet verschijnen.
Heeft iemand een idee?

 

[Ron321]

En als je de Microsoft Scripting Runtime niet wenst te gebruiken, dan zijn alternatieven:

- de Dir() functie
- Application.FileSearch (tot en met Excel 2003)

Wigi

Wim, kun je daar een voorbeeld van geven?

 

[Hoornvan]

Ron321,

Heb je dit in een cel geplaatst?

=countFiles()

 

[Ron321]

Dan krijg ik de volgende foutmelding:

#NAAM?

 

[Hoornvan]

Ron321,

Ik heb het even getest en moet zeggen dat het werkt.
De folder heb ik aan mijn situatie aangepast.
Microsoft Scripting Runtime heb ik aangevinkt.
Toen de file opgeslagen en opnieuw geopend en voila het resultaat is 377
In de cel moet het onderstaande staan, zonder de () kreeg ik ook #NAAM?

=countFiles()

Nu maar hopen dat het lukt.

 

[Ron321]

Waar kan je in excel 2007 microsoft scripting runtime aanzetten?

 

[nire]

in VBA editor
gaan naar Tools->References

 

[Hoornvan]

In VB Editor moet je wel even via Tools->References de optie Microsoft Scripting Runtime aanvinken.

Ik weet niet of dit gelukt is bij je?
Hij staat in de VBA Editor onder Extra / Verwijzingen

 

[nire]

Ja klopt, dat is de Nederlandse benaming.

 

[Ron321]

Ik heb hem idd in NL.
Nu gevonden maar nog steeds dezelfde foutmelding.

 

[Ron321]

Moet de macro in een module of gewoon achter een werkblad?

 

[Hoornvan]

In een module

 

[Ron321]

Oké, in een module dus.
Nu werkt het wel, bedankt allemaal.:thumb: