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

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)
            For n As Integer = 1 To Sheet.Rows.Count -1
                Dim sfz As String = sheet(n,5).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