Inladen en kiezen van een xls bestand

[harolda1980]

Hoe kan ik excel de bestanden laten inladen in een scherm(formulier)
en hoe kan ik excel zelf laten kijken naar de bestand naam voor het inladen

AGF_week_30.xls
AGF_week_31.xls
AGF_week_32.xls
AGF_week_33.xls
AGF_week_34.xls

dit is een voorbeeld van de bestandsnamen

 

[Wigi]

Zet een Listbox op het formulier.

Vervolgens voeg je de bestanden toe. Ondanks het late uur heb ik toch nog een hoop code geschreven:

Private Sub UserForm_Initialize()
        
    With Application.FileSearch
        
        .NewSearch
        .LookIn = "C:\Bestanden"                'HIER VERANDEREN
        .SearchSubFolders = False
        .FileType = msoFileTypeAllFiles
        .Filename = ".XLS"                      'HIER VERANDEREN
        .LastModified = msoLastModifiedAnyTime
        
        If .Execute > 0 Then
            
            For lCount = 1 To .FoundFiles.Count
                
                Me.ListBox1.AddItem .FoundFiles(lCount)
                
            Next lCount
            
        End If
        
    End With
    
End Sub

Als je enkel de bestandsnaam wil hebben, zal je nog wat extra werk hebben.

Het openen van het bestand mag jij ook nog doen...

Wigi