VBA: Wie If/Else-Anweisung in einer Schleife zu tun, um fortzufahren

Question

Also habe ich einen Code geschrieben, der durch einen Ordner geht Dokumente öffnet, kopiert Informationen und fügt in einer Master-Datei irgendwo anders. Das Problem, das ich habe, ist, dass ich eine if, else-Anweisung hinzufügen möchte, um das Datum zu vergleichen, an dem die Master-Datei zuletzt geändert wurde, mit den Dokumenten in dem anderen Ordner. Wenn es die if-Anweisung nicht erfüllt, möchte ich, dass die Schleife dieses Dokument überspringt und das nächste Dokument weiter vergleicht. Nicht sicher, wie man damit fortfahren kann, der Code kann unten gesehen werden.

Sub Datecheck() 
    Dim MyFile As String 
    Dim erow 
    Dim Filepath As String 
    Dim otherfiledate As Date 
    Dim zmasterdate As Date 
    Filepath = "folder of where all files are located" 
    MyFile = Dir(Filepath) 
    zmasterdate = FileDateTime("location of zmasterdate") 

    Do While Len(MyFile) > 0 
     otherfiledate = FileDateTime(Filepath & "\" & MyFile) 
     If otherfiledate > zmasterdate Then 

      Workbooks.Open (Filepath & MyFile) 
      Range("B4:N4").Copy 
      ActiveWorkbook.Close 

      erow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 
      ActiveSheet.Paste Destination:=Worksheets("Reflections").Range(Cells(erow, 2), Cells(erow, 14)) 

      MyFile = Dir 

     Else 

      End Sub 

     End If 
    Loop 
End Sub 

Answer 1

Sie tun bereits die Überprüfung, so dass Sie keine else Klausel brauchen. Bewegen Sie einfach Ihre MyFile = Dir bis zum Ende der Schleife

Sub Datecheck() 
Dim MyFile As String 
Dim erow 
Dim Filepath As String 
Dim otherfiledate As Date 
Dim zmasterdate As Date 
Filepath = "folder of where all files are located" 
MyFile = Dir(Filepath) 
zmasterdate = FileDateTime("location of zmasterdate") 

Do While Len(MyFile) > 0 
    otherfiledate = FileDateTime(Filepath & "\" & MyFile) 
    If otherfiledate > zmasterdate Then 

     Workbooks.Open (Filepath & MyFile) 
     Range("B4:N4").Copy 
     ActiveWorkbook.Close 

     erow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 
     ActiveSheet.Paste Destination:=Worksheets("Reflections").Range(Cells(erow, 2), Cells(erow, 14)) 

    End If 
    MyFile = Dir 
Loop 
End Sub