Find filnavne
HejNogle der kan hjælpe med hvorfor jeg ikke kan få denne funktion og formel til at vise filerne på et drev.
I A3 og ned efter skriver jeg denne formel =INDEKS(GetFileNamesbyExt($A$1;$B$1);ROW()-2)
I A1 drevet og i B1 filtypen i dette tilfælde xlsx
Med venlig hilsen
Klaus W
https://1drv.ms/x/s!AmLaaGiC5LdoidQhmQDgQpgiaWlYvQ?e=K9p56l
Også har jeg lagt en funktion ind i et modul i VBA der ser sådan ud.
Function GetFileNamesbyExt(ByVal FolderPath As String, FileExt As String) As Variant
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
ReDim Result(1 To MyFiles.Count)
i = 1
For Each MyFile In MyFiles
If InStr(1, MyFile.Name, FileExt) <> 0 Then
Result(i) = MyFile.Name
i = i + 1
End If
Next MyFile
ReDim Preserve Result(1 To i - 1)
GetFileNamesbyExt = Result
End Function