- 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=71646)
-- 发布时间：2015/7/15 15:35:00
-- 求导入excel表
原表为excel表，如何导入狐表中的新表格式。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.xls |
此主题相关图片如下：未命名.bmp
[此贴子已经被作者于2015/7/15 15:35:53编辑过]
-- 发布时间：2015/7/15 16:02:00
--
在不改变原表格结构的前提下，如何写代码。科目名称语文、数学为变量，也可能是英语、物理、化学等更多列。
[此贴子已经被作者于2015/7/15 16:05:48编辑过]
-- 发布时间：2015/7/15 16:06:00
--
Dim Book As New XLS.Book("d:\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim nms() As String = {"姓名","语文","数学"}
For n As Integer = 1 To Sheet.Rows.Count -1
For m As Integer = 1 To nms.Length - 1
Dim r As Row = Tables("订单").AddNew()
r("姓名") = Sheet(n,0).Value
r("科目") = nms(m)
r("分数") = Sheet(n,m).Value
Next
Next
Tables("订单").ResumeRedraw()