主题：[求助] 合并考勤记录表,求助

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1

 

谢谢袍哥，问题解决了。

什么意思？你要获取哪一个单元格就该这句代码啊

 

ws.cells(r, nnnnnnnnnnnnnnnnnnn).Text

 

 

 

本应该读取1号至16号的数据的，但事实上只读取16号的数据，

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               
                For r As Integer = i+5 To ws.UsedRange.Rows.Count
                    If ws.cells(r,1).Text = Nothing Then
                        i = r
                        Exit For
                    Else
                        Dim 新行  As DataRow
                        新行 = DataTables("考勤记录").AddNew()
                        新行("员工工号") = 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

 如果把17号到31号的数据也同时读取就更完美了

Dim 新行  As DataRow
新行 = DataTables("考勤记录").AddNew()
新行("员工工号") = ws.cells(i,8).Text
新行("日期") = ws.cells(r,1).Text
Dim 新行2 As DataRow
新行2 = DataTables("考勤记录").AddNew()
新行2("员工工号") = ws.cells(i,8).Text
新行2("日期") = ws.cells(r,nnnnnn).Text