主题：求助，代码导入文件。如何判断选错后文件内字段错误，并给出提示

    Dim App As New MSExcel.Application

    

    Dim wb1 As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "wordup\" & strss)

    Dim ws As MSExcel.WorkSheet  = wb1.workSheets(1)

    Dim Rg As MSExcel.Range = Ws.UsedRange

    Dim ary = rg.value

    

    Dim dt As DataTable = Functions.Execute("生成cmd数据表","考勤","")

    dt.StopRedraw()  '停止绘制

    Dim nms1() As String

    

    nms1 = New String() {"项目名称","1“,"2"}

    

    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题\

    Dim val1 As Integer = 0

    Dim valzc As Integer = 0

    Dim valcm As Integer = 0

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

next

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.UsedRange

For j As Integer = 1 To Rg.Columns.Count

    If Ws.Cells(1, j).value Like "*某列*" Then

        msgbox(“包含某列”)

    End If 

Next