谢谢袍哥，问题解决了。
Dim dlg As new OpenFileDialog
dlg.Filter = "excle|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For i As Integer = 1 To ws.UsedRange.Rows.Count
If ws.cells(i,1).Text Like "单位*" Then
Dim 新行 As DataRow
新行 = DataTables("考勤记录").AddNew()
新行("员工工号") = ws.cells(i,8).Text
For r As Integer = i+5 To ws.UsedRange.Rows.Count
If ws.cells(r,1).Text = Nothing Then
i = r
Exit For
Else
新行("员工工号") = ws.cells(i,8).Text
新行("日期") = ws.cells(r,1).Text
End If
Next
End If
Next
catch ex As exception
msgbox(ex.message)
finally
app.quit
End try
End If
用这代码，不能全部读取到考勤记录，是为什么呢？
加好友 
发短信
Post By：2015/9/16 16:48:00 [显示全部帖子]
如果把17号到31号的数据也同时读取就更完美了