主题：从excel报表提取数据

http://www.foxtable.com/webhelp/index.htm?page=2492.htm

把excel文件发上来，做一个foxtable例子发上来，才能帮你写代码。

 

----------不然说一下思路：每一个人员开始的标志是什么？循环每一行，遇到开始的标志，就开始读取数据。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:001.xlsx

这是xlsx文件，我想用窗口的一个按钮实现导入有这样几百个人的数据的功能。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx"
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 = "姓名" Then
            msgbox("一个用户")
            msgbox(sheet(i+0, 1).text)
            msgbox(sheet(i+1, 2).text)
            msgbox(sheet(i+3, 2).text)
        End If
    Next
End If

是要导入数据，不是弹出消息框。。。。。

 

信息弹出了，那就addnew新增行，给每一列赋值。