- 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=27338)
-- 发布时间：2012/12/28 21:49:00
-- [求助]能按列从Excel报表提取数据吗？
从Excel报表提取数据
代码是很简单的，只是将Excel各单元格的内容写入新增行对应列而已：
For Each file As String In filesys .GetFiles("c:\\Data")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("员工").AddNew
dr("姓名") = sheet(4,1).Text
dr("部门") = sheet(5,1).text
dr("出生日期") = sheet(4,3).text
dr("雇佣日期") = sheet(5,3).text
dr("性别") = sheet(6,1).text
dr("职务") = sheet(6,3).text
dr("地址") = sheet(7,1).text
dr("家庭电话") = sheet(8,1).text
dr("办公电话") = sheet(8,3).text
dr("备注") = sheet(9,0).text
End If
Next
请教：如果参赛选手姓名列的姓名已输入，想把多张EXCEL评委表中的分数提取填入到评委列1、评委列2、评
委列3...,可以实现吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:评委登分表.xls |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:评分报表导入.table |
-- 发布时间：2012/12/29 10:18:00
--
这样，看是不。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:desktop.zip |
-- 发布时间：2012/12/29 10:56:00
--
谢谢！似乎第一位评委数据能正常导入，第二位开始便没反应了
另外，狐表帮助的例子，是把多个excel数据文件集中放在c:\\Data文件夹中，一键就能全部导入，这能做到吗？当评委人数较多的时候，很实用，不需要一个一个导入
再次感谢！
-- 发布时间：2012/12/29 12:09:00
--
呃……你选择多个excel以后再试试吧。不是允许多选的么？按着Ctrl选择。
-- 发布时间：2012/12/29 12:24:00
--
试了，选择多个excel也是只导入一个，帮助里那个是自动遍历
请教：代码里的 count += 1 是什么意思
-- 发布时间：2012/12/29 12:32:00
--
刚刚试了一下，只能是一次性导入，没办法增加导入，比如第一次导入7个评委分数，全部能导入；接着再导入第八、第九个两个评委表便不能了；如果第二次全选九个评委表，九列便都有数据。似乎每一次都是从第一列开始覆盖数据。
-- 发布时间：2012/12/29 13:26:00
--
刚刚试了一下，只能是一次性导入，没办法增加导入，比如第一次导入7个评委分数，全部能导入；接着再导入第八、第九个两个评委表便不能了；如果第二次全选九个评委表，九列便都有数据。似乎每一次都是从第一列开始覆盖数据。
增加导入没有意义，因为你导入7个以后，发觉数据有错，想覆盖，这样就不能如愿了。因为只是导入一次，全选以后导入比较好。
-- 发布时间：2012/12/29 13:35:00
--
领教！count += 1是？
-- 发布时间：2012/12/29 13:40:00
--
领教！count += 1是？
是一个简写 等同于 count = count + 1