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

分析excel的表结构，然后读取数据出来。

http://www.foxtable.com/help/topics/2492.htm

1、把xls另存为excel97-2003格式

2、用下面代码

Dim dlg As new OpenFileDialog
dlg.Filter = "excle|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 0 To sheet.Rows.Count - 1
        If sheet(i,0).Text Like "单位*"  Then
            output.show(sheet(i,7).Text)
            For r As Integer = i+5 To sheet.Rows.Count - 1
                If sheet(r,0).Text = Nothing Then
                    i = r
                    Exit For
                Else
                    output.show(sheet(r,2).Text)
                End If
            Next
        End If
    Next
End If

不想另存为，就用vba打开

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
                output.show(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
                        output.show(ws.cells(r,3).Text)
                    End If
                Next
            End If
        Next
    catch ex As exception
        msgbox(ex.message)
    finally
        app.quit
    End try
End If

改变这个的值，任意获取啊

output.show(ws.cells(r,3).Text)

参考

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

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

ws.cells(r, nnnnnnnnnnnnnnnnnnn).Text

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