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

您已经进行了检查，因此您不需要其他条款。只需将MyFile = Dir移动到循环结束

Q2:

VBA：如何判断do循环中的/ else语句是否继续

1 个答案: