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

还是没搞懂，条件列sheet(n,5).Text  和导入列sheet(n,8).text 不用列位置获取Excel表中的列，而直接用“列名”获取。             条件列用“身份证号”(固定的)和导入列用“km”(动态的) ，如何修改代码？

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("校名设置").GetValues("部别","单位 = \'统计\'" )
        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  \'获取条件列(身份证号)(只能在第5列，不能变动)

                Dim dr As DataRow =  DataTables("名册").Find("身份证号 = \'" & sfz & "\'")
                If dr IsNot Nothing
                    dr( km ) = sheet(n,8).text \'获取导入列(只能在第8列，不能变动)
                End If
            Next
        Next
        e.Form.Controls("Label11").Text = "英语" & km & "成绩已经合并,可以进行分项统计!"
    Next
End If

注：将“测试英语听力第一次考试成绩.xls”文件中的“听力一”列导入到“高中期末成绩统计程序.Table”文件的“名册”中的“听力一”列中，条件是“身份证号”＝“km”。sheet(n,5).Text  和　sheet(n,8).text 不能受列位置限制。只能用“身份证号”和“km”列名限制

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试英语听力第一次考试成绩.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:高中期末成绩统计程序.rar

版主：我的这个想法能否解决？请指教。谢谢!

因为导入列“听力一”(km)必须在Excel表中的第“8”列即“I”列、条件列“身份证号”必须在Excel表中的第“5”列即“F”列才能正确导入，如果导入表Excel中的列位置变化了，就必须修改代码中的列位置“8”和“5”或调整导入列“听力一”(km)和条件列“身份证号”在Excel表中的列位置，这样不太方便。我就想直接用列名来代替“(n,8)”和“(n,5)”。不知能否实现，请指教。谢谢!

完美信息显示

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

显示信息要将导入Excel表中的所有列显示完，我将红色部分代码改为MessageBox.show("导入的是" & km & "吗","提示", MessageBoxButtons.YesNo)就显示：<!--StartFragment -->

<!--StartFragment -->

 
此主题相关图片如下：qq图片20140411153133.jpg

点“是(Y)”后仍然要显示Excel表中列的次数，还是能够导入，但点“否(N)后不终止执行。

我想点“是(Y)”后执行导入(只显1次)，并显示“正在导入，请稍后…”(MessageBox.show("正在导入" & km & ",请稍后…")。点“否(N)“后终止执行导入。

怎么修改代码？请指教。谢谢!