Makro pro excel 2010
Ahoj,
mám problém s makrem. Makro bylo vytvořeno ve verzi Excel 2003. Při spuštění ve verzi 2010 ale nefunguje. Mohli by jste mi pomoci s kodem, popřípadě co změnit?
Public Sub NamesOfFilesInDirectory(FilePath As String, Filename As String)
Dim FS As FileSearch
Set FS = Application.FileSearch
With FS
.LookIn = FilePath
.Filename = Filename
.Execute
End With
Dim i, j As Integer
For i = 1 To FS.FoundFiles.Count
ReDim Preserve FilesInDirectory(i)
FilesInDirectory(i) = FS.FoundFiles(i)
Next i
End Sub
DěkujiVítek