- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 从excel报表提取数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118995)
-- 发布时间：2018/5/15 17:38:00
-- 从excel报表提取数据
报表中由几百个人的数据，
http://www.foxtable.com/webhelp/index.htm?page=2492.htm这个例子中的代码如何改成循环读取？
-- 发布时间：2018/5/15 19:06:00
--
把excel文件发上来，做一个foxtable例子发上来，才能帮你写代码。
----------不然说一下思路：每一个人员开始的标志是什么？循环每一行，遇到开始的标志，就开始读取数据。
-- 发布时间：2018/5/16 15:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:001.xlsx |
-- 发布时间：2018/5/16 17:08:00
--
这是xlsx文件，我想用窗口的一个按钮实现导入有这样几百个人的数据的功能。
-- 发布时间：2018/5/16 17:57:00
--
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
-- 发布时间：2018/5/16 18:35:00
--
是要导入数据，不是弹出消息框。。。。。
不过有启发。我明天试试。
-- 发布时间：2018/5/16 19:22:00
--
以下是引用comnets在2018/5/16 18:35:00的发言：
是要导入数据，不是弹出消息框。。。。。
是要导入数据，不是弹出消息框。。。。。
不过有启发。我明天试试。
信息弹出了，那就addnew新增行，给每一列赋值。