Здрасти ,
идеята ми да направя цикъл, който да преминава през всички файлове в директория и това да стане чрез VBA в Excel 2010.
В цикъла ми са необходими :
- име на файла
- дата, на която е форматиран файла
До момента съм написал код, който работи добре ако в папката няма повече от 50 файла, иначе е много бавен. А аз трябва да работя с папки , които са с над 1000 файла ! Предполагам проблемът е в това, че опeрацията , която преглежда file.name отнема прекалено много време. Пействам кода си по-долу:
Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, file As Variant
Set MySource = MyObj.GetFolder("c:\testfolder\")
For Each file In MySource.Files
If InStr(file.name, "test") > 0 Then
MsgBox "found"
Exit Sub
End If
Next file
End Sub