VBA：doループ内のif/elseステートメントを継続する方法を教えてください

Question

フォルダを経由するコードを書いたので、文書を開き、情報をコピーし、別の場所にあるマスターファイルに貼り付けます。私が抱えている問題は、最後のマスターファイルが変更された日付を他のフォルダー内の文書と比較するためにif、elseステートメントを追加したいということです。 if文を満たしていないときは、ループでその文書をスキップして次の文書の比較を続けます。これを進める方法がわからない場合は、コードを以下に示すことができます。

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

すでにチェックを行っているので、else節は必要ありません。 MyFile = Dirをループの最後に移動するだけです。

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