主题：[求助]excel报表自动添加空行问题

excel模板设计好了，通过菜单生成报表可以实现自动添加空行，但帮助中的说明提供的代码却不行，按钮代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

缺少什么东西？

通过菜单测试正常能自动添加空行，通过按钮就没有空行。

很奇怪，通过菜单测试正常，能自动添加空行，如下图：

 

此主题相关图片如下：表1.jpg

同一个模板，通过按钮的不能添加空行，合并单元格也无效了，见下图：

此主题相关图片如下：表2.jpg

我的excel是2010版的，怀疑版本的问题，在2003版下制作的模板仍然是一样，通过菜单测定添加空行正常，通过代码后格式不正常，也不能自动添加空行。

我的这个问题没有人碰到吗？

上个例子：

 

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

点击浏览该文件:管理项目9.zip

发现了问题，按钮上自己的代码错误。现在OK了。

我的按钮打印报表代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\测试.xls") '打开模板
Dim fl As String =  ProjectPath &  "Reports\测试.xls"
 Dim Sheet As XLS.Sheet = Book.Sheets(0)
 Sheet(4,0).Value =  "<表A>"   '写入表名

Book.Build() '生成报表
Book.Save(fl)
 Dim Proc As New Process
 Proc.File = fl
 Proc.Start()

红色部分去掉，否则会出现格式不对的情况。

Dim fl As String=ProjectPath & “Reports\测试.xls

自己解决，在“测试”文件夹下自动实现保存为****年下的*月份的*日报表，代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\测试.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\测试\'" & Date.Today & "'.xls"

 Book.Build() '生成报表
Book.Save(fl)
 Dim Proc As New Process
 Proc.File = fl
 Proc.Start()