主题：[求助]EXCEL条件导入时能否直接用列名获取？

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.Filter= "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

    For Each km As String In DataTables("校名设置").GetUniqueValues("单位 = '统计'", "部别")

        For Each fl As String In dlg.FileNames

            Dim Book As New xls.Book(fl)

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

            Dim nms As new Dictionary (of String,Integer)

            

            For i As Integer = 0 To Sheet.Cols.Count -1

                If Sheet(0,i).Value <> "" Then

                    nms.add(Sheet(0,i).Value,i)

                    MessageBox.show(Sheet(0,i).Value)

                End If

            Next

            

            For n As Integer = 1 To Sheet.Rows.Count -1

                Dim sfz As String = sheet(n,nms("身份证号")).Text  '获取身份证号

                Dim dr As DataRow =  DataTables("名册").Find("身份证号 = '" & sfz & "'")

                If dr IsNot Nothing

                    dr( km ) = sheet(n,8).text

                End If

            Next

        Next

        e.Form.Controls("Label11").Text = "英语" & km & "成绩已经合并,可以进行下一步!"

    Next

End If

你可以参考帮助