主题：[讨论]这是什么意思，请专家解读

For Each file As String In filesys .GetFiles(ProjectPath & "\提取数据")

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

        Dim Book As New XLS.Book(file)

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        Dim bh As String = sheet(3,3).Text

        If Tables("直接提取_Table1").DataTable.Find("单位名称 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单

            Dim dr As DataRow = Tables("直接提取_Table1").DataTable.AddNew

            dr("单位名称") = sheet(3,3).Text

            dr("领导职数_正处级_实配数") = sheet(4,6).text

            dr("领导职数_副处级_实配数") = sheet(4,11).text

            dr("领导职数_正科级_实配数") = sheet(11,6).text

            dr("领导职数_副科级_实配数") = sheet(11,11).text

            dr("非领导职数_正处级_实配数") = sheet(18,6).text

            dr("非领导职数_副处级_实配数") = sheet(18,11).text

            dr("非领导职数_正科级_实配数") = sheet(24,6).text

            dr("非领导职数_副科级_实配数") = sheet(24,11).text

            dr("领导职数_县处级超配原因及超配数_超机构规格提拔") = sheet(6,6).Text

            dr("领导职数_县处级超配原因及超配数_违规设置领导职务名称") = sheet(7,6).text

            dr("领导职数_县处级超配原因及超配数_违规党政分设") = sheet(8,6).text

            dr("领导职数_县处级超配原因及超配数_换届政策") = sheet(9,6).text

            dr("领导职数_县处级超配原因及超配数_其他原因") = sheet(10,6).text

            dr("领导职数_县处级超配原因及超配数_违规提高干部职级待遇") = sheet(6,10).text

            dr("领导职数_县处级超配原因及超配数_任职年龄层层递减") = sheet(7,10).text

            dr("领导职数_县处级超配原因及超配数_军转安置") = sheet(8,10).text

            dr("领导职数_县处级超配原因及超配数_机构改革") = sheet(9,10).text

            dr("领导职数_乡科级超配原因及超配数_超机构规格提拔") = sheet(13,6).Text

            dr("领导职数_乡科级超配原因及超配数_违规设置领导职务名称") = sheet(14,6).text

            dr("领导职数_乡科级超配原因及超配数_违规党政分设") = sheet(15,6).text

            dr("领导职数_乡科级超配原因及超配数_换届政策") = sheet(16,6).text

            dr("领导职数_乡科级超配原因及超配数_其他原因") = sheet(17,6).text

            dr("领导职数_乡科级超配原因及超配数_违规提高干部职级待遇") = sheet(13,10).text

            dr("领导职数_乡科级超配原因及超配数_任职年龄层层递减") = sheet(14,10).text

            dr("领导职数_乡科级超配原因及超配数_军转安置") = sheet(15,10).text

            dr("领导职数_乡科级超配原因及超配数_机构改革") = sheet(16,10).text

            dr("非领导职数_县处级超配原因及超配数_超机构规格提拔") = sheet(20,6).Text

            dr("非领导职数_县处级超配原因及超配数_任职年龄层层递减") = sheet(21,6).text

            dr("非领导职数_县处级超配原因及超配数_换届政策") = sheet(22,6).text

            dr("非领导职数_县处级超配原因及超配数_其他原因") = sheet(23,6).text

            dr("非领导职数_县处级超配原因及超配数_违规提高干部职级待遇") = sheet(20,10).text

            dr("非领导职数_县处级超配原因及超配数_军转安置") = sheet(21,10).text

            dr("非领导职数_县处级超配原因及超配数_机构改革") = sheet(22,10).text

            dr("非领导职数_乡科级超配原因及超配数_超机构规格提拔") = sheet(26,6).Text

            dr("非领导职数_乡科级超配原因及超配数_任职年龄层层递减") = sheet(27,6).text

            dr("非领导职数_乡科级超配原因及超配数_换届政策") = sheet(28,6).text

            dr("非领导职数_乡科级超配原因及超配数_其他原因") = sheet(29,6).text

            dr("非领导职数_乡科级超配原因及超配数_违规提高干部职级待遇") = sheet(26,10).text

            dr("非领导职数_乡科级超配原因及超配数_军转安置") = sheet(27,10).text

            dr("非领导职数_乡科级超配原因及超配数_机构改革") = sheet(28,10).text

            dr("编制文件名称") = sheet(30,3).text

        End If

    End If

Next