谢谢你，有点蓝，姓名这一列的结果能出来了，但在狐表中，姓名这一列的右边还有“性别”和“身份证号”列，同样，在对应的Excel中，张三、李四、王五的真实性别和身份证号码也都在左边单元格的值分别为“性别：”和“身份证号：”的相应单元格中，请问，在此种情况下，要同时提取，对应的Excel中，张三、李四、王五等这一批人的性别和身份证号，代码需怎样修改，我修改的代码如下，但结果出不来，请问，代码存在哪儿，还需修改哪儿？
Tables("报名表").StopRedraw()
For Each file As String In filesys .GetFiles("f:\报名")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
''Output.Show(Sheet.Rows.Count & "," & Sheet.Cols.Count)
Dim r As Row = Tables("报名表").AddNew()
For n As Integer = 0 To Sheet.Rows.Count -1
For m As Integer = 0 To Sheet.Cols.Count- 1
''Output.Show(Sheet(n,m).Value )
If Sheet(n,m).Value = "姓名:" Then
r("姓名") = Sheet(n,m+1).Value
If Sheet(n,m).Value = "性别:" Then
r("性别") = Sheet(n,m+1).Value
If Sheet(n,m).Value = "身份证号:" Then
r("身份证号") = Sheet(n,m+1).Value
End If
Next
End If
Next
Next
End If
Next
End If
Next
Tables("报名表").ResumeRedraw()
加好友 
发短信
Post By：2020/1/10 21:41:00 [显示全部帖子]
