Foxtable(狐表)用户栏目专家坐堂 → 关于excel导出及发导入。


  共有10232人关注过本帖树形打印复制链接

主题:关于excel导出及发导入。

帅哥,在线噢!
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47498 积分:251408 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/16 9:44:00 [显示全部帖子]

先回复你认为“最难”的一个问题。
 
Foxtable可以根据Excel模板批量生成Excel表格,反过来,我们也可以从Excel表格提取数据写入Foxtable。
假定有一个下图所示的Excel文件,发给所有员工自行填写,然后将所有填写好的文件放在同一个目录,现在要求编写代码从这些Excel文件中提取数据,写入到Foxtable的员工表中:
 

图片点击可在新窗口打开查看此主题相关图片如下:1718.gif
图片点击可在新窗口打开查看
 

代码是很简单的,只是将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
[此贴子已经被作者于2012-5-16 9:44:46编辑过]

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47498 积分:251408 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/16 9:49:00 [显示全部帖子]

至于报表,你可以看看:

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

 

另外你似乎有个同行,就是论坛的元老blackzhu,他的报表和你类似,你看看他这篇文章的最后一个图片:

http://www.foxtable.com/intro/topics/2464.htm

 

 


 回到顶部