Bestandsnaam filteren uit bestandsadres

[PepijnWest]

Hallo

Vraagje als volgt:

Via een andere vraag hier op het forum die ik wat aanpaste.
Zoek ik het adres en de bestandsnaam op van alle Excel documenten in een map.
http://www.helpmij.nl/forum/showthread.php?t=375644

Alle Excel bestanden komen dan te staan op Blad1 in mijn werkmap.
Zoals dit voorbeeld:

\\Srv1\Documenten\Pepijn\Planning\Test\Voorbeeld1.xls

Is het mogelijk om dit te filteren zodat ik enkel "Voorbeeld1" krijg te zien op Blad1?
En niet het ganse adres van dit bestand.

Wie helpt me op weg?

Alvast bedankt

 

[snb]

Welke VBA-code gebruik je ?

 

[PepijnWest]

Wel ik heb nu enkel aan een bestandscode wat aangepast die ik terug vond in eerdere onderwerpen hier op het forum.
Dit om te proberen of mijn probleem wel op te lossen is.
Dan kan ik kijken om het programma naar mijn hand te zetten.

Ik los alles graag op in stapjes, alhoewel ik in de bijlage al wat verder mijn doelstelling heb uitgelegd...

Alvast bedankt

Pepijn

 

[snb]

Vermijd select en activate in VBA
Kijk in de hulpfunktie van de VBEditor bij Filesearch en bij Dir
NB. In Office2007 is filesearch als methode gesneuveld.

Sub HaalBestandenOp()
  With Application.FileSearch
    .LookIn = "E:\"
    .FileType = 4
    For j = 1 To .Execute
       Cells(j, 1) = Dir(.FoundFiles(j))
    Next
  End With
End Sub

 

[PepijnWest]

Dank u

Met uw code en de code van de Help functie lukt het me al om de bestanden op te vragen/
Hij zet de namen allemaal in een rij.
Maar de extensie staat er nog bij zoals Voorbeeld.xls
Is er een mogelijkheid om die .xls weg te krijgen?

Private Sub CommandButton1_Click()

    With Application.FileSearch
        .LookIn = "\\Srv1\Projecten\00 - RUBEN - projecten\Werf communicatie\TEST"
        .FileType = 4

        For j = 1 To .Execute
        Cells(j, 1) = Dir(.FoundFiles(j))
        Next
    
    If .Execute() > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
'            For i = 1 To .FoundFiles.Count
'            MsgBox .FoundFiles(i)
'            Next i
        Else
            MsgBox "There were no files found."
        End If
     End With

End Sub

Ik weet dat in Excel 2007 het anders is... toch bedankt :thumb:

 

[snb]

Private Sub CommandButton1_Click()
  With Application.FileSearch
    .LookIn = "\\Srv1\Projecten\00 - RUBEN - projecten\Werf communicatie\TEST"
    .FileType = 4

    For j = 1 To .Execute
      Cells(j, 1) = replace(Dir(.FoundFiles(j)),".xls","")
    Next
    
    Msgbox iif(isempty(j),"Geen",j -1 ) & " bestanden gevonden"
End Sub

 

[PepijnWest]

Werkt prima

Bedankt!

Pepijn