Foxtable(狐表)用户栏目专家坐堂 → excel报表


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

主题:excel报表

帅哥哟,离线,有人找我吗?
ccbbdlzj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
excel报表  发帖心情 Post By:2014/7/14 12:09:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel引用.foxdb

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel表引用.xlsx

 

想生成Excel表,其中:岗位代码列根据员工姓名自动生成,求代码!
 

Dim gwdzb As DataTable = DataTables("岗位对照表")

Dim ygbh As List(Of String) = gwdzb.GetValues("员工代码")

Dim ygxm As List(Of String) = gwdzb.GetValues("员工姓名","","员工代码")

Dim Book As New XLS.Book("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表模板文件\员工产品销售目标表.xls")  '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Sheet(0,0).Value = "员工产品销售目标表"

Sheet(2,0).Value = "员工编号"

Sheet(2,1).Value = "员工姓名"

Sheet(2,2).Value = "岗位代码"

 

For i As Integer = 0 To ygxm.Count - 1

        Sheet(i + 4, 0).Value = ygbh(i)

        Sheet(i + 4, 1).Value = ygxm(i)

        Sheet(i + 4, 2).Value = “不知道咋写了?”

Next

Forms("进度显示").close

'打开工作簿

Book.Save("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\员工产品销售目标表.xls")

Dim Proc As New Process

Proc.File = "\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\员工产品销售目标表.xls"

Proc.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/14 14:42:00 [只看该作者]

Dim gwdzb As DataTable = DataTables("岗位对照表")

Dim arys As List(Of String()) = gwdzb.GetValues("员工代码|员工姓名|岗位代码", "", "员工代码")

Dim Book As New XLS.Book("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表模板文件\员工产品销售目标表.xls")  '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Sheet(0,0).Value = "员工产品销售目标表"

Sheet(2,0).Value = "员工编号"

Sheet(2,1).Value = "员工姓名"

Sheet(2,2).Value = "岗位代码"

 

For i As Integer = 0 To arys.Count - 1

        Sheet(i + 4, 0).Value = arys(i)(0)

        Sheet(i + 4, 1).Value = arys(i)(1)

        Sheet(i + 4, 2).Value = arys(i)(2)

Next

Forms("进度显示").close

'打开工作簿

Book.Save("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\员工产品销售目标表.xls")

Dim Proc As New Process

Proc.File = "\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\员工产品销售目标表.xls"

Proc.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
ccbbdlzj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/7/14 16:51:00 [只看该作者]

非常感谢!


 回到顶部
帅哥哟,离线,有人找我吗?
源理
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:49 积分:680 威望:0 精华:0 注册:2012/2/17 15:55:00
  发帖心情 Post By:2014/7/14 20:10:00 [只看该作者]

观望中!
等成熟了就下载!

 回到顶部