主题：代码

For Each file As String In filesys .GetFiles(ProjectPath & "报表1")

    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

        Dim Book1 As New XLS.Book(file)

        Dim Sheet1 As XLS.Sheet = Book1.Sheets("分户快报")

        Dim Sheet2 As XLS.Sheet = Book1.Sheets("资产负债表")

        Dim Sheet3 As XLS.Sheet = Book1.Sheets("利润及分配表")

        Dim Sheet4 As XLS.Sheet = Book1.Sheets("费用表")

        Dim Sheet5 As XLS.Sheet = Book1.Sheets("工资月报")

        Dim Sheet6 As XLS.Sheet = Book1.Sheets("附列资料")

        Dim s As String = sheet1(2,1).value

        Dim d1 As Date = sheet1(1,1).value

        Dim d2 As Date = sheet1(1,0).value

        Dim d3 As Date = sheet1(1,0).value

        Dim d4 As Date = sheet1(1,1).value

        Dim d5 As Date = sheet1(1,4).value

        Dim d6 As Date = sheet1(1,9).value

        If s.Substring(0,4) = "编制单位" AndAlso s = sheet2(3,0).value AndAlso s = sheet3(2,0).value AndAlso s = sheet4(2,0).value AndAlso s = sheet5(1,0).value AndAlso s = sheet6(1,0).value Then

            Dim r As Row = Tables("审核").AddNew()

            r("单位") =  FileSys.GetName(file)

            r("报表名") = sheet1.name

        Else

            If isDate(d1) = False OrElse d1.year <> vars("cc").year OrElse d1.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet1.name

            Else If isDate(d2) = False OrElse d2.year <> vars("cc").year OrElse d2.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet2.name

            Else If isDate(d3) = False OrElse d3.year <> vars("cc").year OrElse d3.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet3.name

            Else If isDate(d4) = False OrElse d4.year <> vars("cc").year OrElse d4.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet4.name

            Else If isDate(d5) = False OrElse d5.year <> vars("cc").year OrElse d5.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet5.name

            Else If isDate(d6) = False OrElse d6.year <> vars("cc").year OrElse d6.month <> vars("cc").month Then

                Dim r As Row = Tables("审核").AddNew()

                r("单位") =  FileSys.GetName(file)

                r("报表名") = sheet6.name

            End If

        End If

    End If

Next

直接用就好了.