MainTable= Tables("员工产品销售目标调整表")
Dim ygcpxsmbtzb As Table =Tables("员工产品销售目标调整表")
Dim ygb As DataTable =DataTables("员工信息表")
Dim yg() As List(Of String()) = ygb.GetValues("员工代码|员工姓名","员工代码< 860899")
Dim Book As New XLS.Book("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表模板文件\工资相关\员工产品销售目标调整表.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(0,0).Value = "员工产品销售目标调整表"
Sheet(1,0).value= "报表期间:" & a & "-" & b
Sheet(2,0).Value = "员工编号"
Sheet(2,1).Value = "员工姓名"
For i As Integer = 0 To yg(1).Count - 1
For c As Integer = 0 To ygcpxsmbtzb.Cols.Count -1 '添加列标题
sheet(2, c+2).Value = ygcpxsmbtzb.Cols(c+5).Name
Sheet(i + 3, 0).Value = yg(i)(0)
Sheet(i + 3, 1).Value = yg(i)(1)
Next
Next
Forms("进度显示").close
'打开工作簿
Book.Save("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\工资相关报表\员工产品销售目标调整表" & a & "_" & b & ".xls") '("d:\data\文件.csv",
'FileSys.CopyFile("\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\岗位天数表.xls", "\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\岗位天数表" & a & "_" & b & ".xls",True)
Dim Proc As New Process
Proc.File = "\\Bddfzlzh-kh\中国建设银行绩效考核系统\EXCEL报表\工资相关报表\员工产品销售目标调整表" & a & "_" & b & ".xls"