Controleren of map leeg is

[Frankell87]

Hallo,

Deze vraag is even orienterend of het uberhaubt mogelijk is.

Wij hebben bij ons bedrijf een flink aantal keurings rapporten en het is soms lastig bij te houden wanneer welke weer moet worden gekeurd en welke te laat is.
Nu hebben we voor elke te keuren installatie een map aangemaakt waarin het rapport moet worden gezet.

Zou ik met Excel VBA kunnen controleren of een map leeg is? Ik weet niet hoe elk bestand gaat heten en die varieren ook telkens van elke leverancier. Hij mag ook terug komen met de bestandsnaam.
Verder zou ik graag willen zien wanneer dit bestand dan is geplaatst.

alvast bedankt voor de reacties!

 

[edmoor]

En wat bedoel je met een map? Een werkboek? Een werkblad? Een directory (Folder)?
Het laatste denk ik?

 

[Frankell87]

Hallo edmoor,

idd het laatste.
ik heb even een voorbeeldje gemaakt:

Bekijk bijlage Voorbeeld van overzicht keuringen.xlsx

 

[edmoor]

Dat kan allemaal en is op zich niet moeilijk. Nu helaas geen tijd voor maar ik kan dat vanavond wel doen.
Tenzij iemand me voor is hier, wat ook niet ondenkbaar is

 

[Frankell87]

Prima! Geen haast hoor!

Thanks!

 

[Frankell87]

Fijn dat het mogelijk is en ik heb er vast iets meer in uitgewerkt zoals het uiteindelijk de bedoeling is.

ik zie een probleem met handmatige ingave icm de macro. heb het proberen te verduidelijken in het bestand

Bekijk bijlage Voorbeeld van overzicht keuringen.xlsx

 

[edmoor]

Vandaag ook te weinig tijd om te freewheelen, maar met onderstaande moet je ver kunnen komen:
In een module:

Public Function BestandDatum(Bestand As String, Optional Datumtype As Integer) As Date
    Dim oFS As Object
    
    Set oFS = CreateObject("Scripting.FileSystemObject")
    Select Case Datumtype
        Case 0: BestandDatum = oFS.GetFile(Bestand).DateCreated         [COLOR="#008000"]'Aanmaak datum[/COLOR]
        Case 1: BestandDatum = oFS.GetFile(Bestand).DateLastModified    [COLOR="#008000"]'Datum laatste wijziging[/COLOR]
    End Select
    Set oFS = Nothing
End Function

En zoiets in je eigen code. Debug.Print kan je dan vervangen door het plaatsen in een cel.

Sub DirLoop()
    Dim Pad As String
    Dim bst As String
    
    Pad = "C:\Users\Frank\Documents\"
    bst = Dir(Pad & "*.xls*")
    While bst <> ""
        bst = Pad & bst
        Debug.Print bst, BestandDatum(bst, 0), BestandDatum(bst, 1)
        bst = Dir()
    Wend
End Sub

 

[Frankell87]

bedankt! ik ga er mee aan de slag

 

[Frankell87]

Hij werkt en haalt de gegevens uit die map. ik heb helaas komende dagen geen tijd maar ga er volgende week mee verder stoeien.
hij moet de mapnamen er nog inzetten en hyperlinks van maken, verschillende alleen wegschrijven, etc etc.

maar heb een mooi begin nu. Als ik vastloop dan laat ik het weten.

 

[snb]

Er staan op dit forum al tig oplossingen voor deze vraag. Gebruik de zoekfunktie eens.

 

[Frankell87]

Er staan op dit forum al tig oplossingen voor deze vraag. Gebruik de zoekfunktie eens.

Nou nou!
Denk aan je bloeddruk.

Kon het niet vinden, misschien niet goed gezocht. Maar was in eerste instantie puur de vraag of het mogelijk was

 

[snb]

Projektie ?