Program ki extract-a filename in ga prilepi v tabelo...

Pozdravljeni!
Moj problem je naslednji.... imam cel kup wordovih dokumentov katerih imena moram kopirati v tabelo... zanima me če slučajno kdo pozna boljšo rešitev kot ročno vnašanje.
Tanx...

Tukaj je makro za excell

Function CreateFileList(FileFilter As String, IncludeSubFolder As Boolean) As Variant
' Vrne polno ime vseh datotek

Dim FileList() As String, FileCount As Long
CreateFileList = ""
Erase FileList
If FileFilter = "" Then FileFilter = "*.*" ' vse vrste datotek
With Application.FileSearch
.NewSearch
.LookIn = CurDir
.Filename = FileFilter
.SearchSubFolders = IncludeSubFolder
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then Exit Function
ReDim FileList(.FoundFiles.Count)
For FileCount = 1 To .FoundFiles.Count
FileList(FileCount) = .FoundFiles(FileCount)
Next FileCount
.FileType = msoFileTypeExcelWorkbooks ' resetira vrste datotek
End With
CreateFileList = FileList
Erase FileList
End Function

Sub TestCreateFileList()
Dim FileNamesList As Variant, i As Integer
'ChDir "C:\Moji dokumenti" ' 'Tu napišeš začetni direktorij
FileNamesList = CreateFileList("*.doc", False) ' poišče datoteke s končnico .doc

Range("A:A").ClearContents
For i = 1 To UBound(FileNamesList)
Cells(i + 1, 1).Formula = FileNamesList(i)
Next i
End Sub

al si pa listmaker dol potegn pa ti nardi spisek u txt formatu