主题：12个月工资报表增加到Excel工资表中

代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\123.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\123.xls"
For i As Integer = 0 To 1
    Dim Sheet As XLS.Sheet = Book.Sheets(i)
    Dim d As Date = new Date(2017, i+1, 1)
    Sheet(1,5).Value = "<月份 >= # " & d & "# and 月份 < #" & d.addmonths(1) & "#>"  '写入打印条件
Next
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

模板

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.xls

去写drawcell事件代码

http://www.foxtable.com/webhelp/scr/2262.htm