ich habe eine Excel-Liste mit den Spalten "Nachname", "Vorname", und "letztes Bearbeitungsdatum". Zu jeder Person soll nun in einem Ordner die passende Datei gefunden werden (Dateiname enthält Nachname + Vorname) und das letzte Bearbeitungsdatum dazu in die Excel-Tabelle geschrieben werden.
Grundsätzlich funktioniert das auch schon auf einem Ordner mit 5 Testdateien/Personen, aber auf dem richtigen Ordner mit über 500 Dateien ist es sehr langsam bzw. habe ich die Ausführung bis jetzt immer nach 10 Minuten abgebrochen (sollte höchstens 1 Minute dauern).
Folgend mein Code - gibt es irgendwelche Tricks, diesen zu optimieren? (VBA/Makro Anfänger und mache das ganze erst seit einer Woche ;-)
Vielen Dank euch schonmal!!
Sub getDateLastModified()
Dim intRowCount As Integer
Dim intRow As Integer
Dim filePath As String
Dim lastName As String
Dim firstName As String
Dim SearchResult As String
Dim objFSO As Variant
Dim objFolder As Variant
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("R:\Folder1")
Application.ScreenUpdating = False
intRowCount = Cells(Rows.Count, "F").End(xlUp).Row
intRow = 2
filePath = ActiveWorkbook.Sheets("HelpData").Cells(6, "A").Value
Do While intRow 0 And (SearchResult Like "*" & lastName & "*" And _
SearchResult Like "*" & firstName & "*") Then
Cells(intRow, "Q") = Split(objFile.DateLastModified, " ")(0)
intRow = intRow + 1
End If
Next
Loop
Application.ScreenUpdating = True
End Sub