主题：[求助]报表

请指教，窗口有多列，只显示部分列，在窗口的输出按键设置如下代码，

导出excel模板，只有1行数据？究竟是代码问题还是模板的问题，请赐教并将修改的贴出，小狗到期了。非常感激！！

 

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()

 

此主题相关图片如下：muban.png

'将窗口明细表直接打印,已测试可用,勿删!!!
'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.Verb = "Print" '指定动作
'Proc.Start()

 

'将窗口明细表的列导出EXCEL表,保存在c:\reports\工程需求.xls,已测试可用,勿删!!!
Dim Book As New XLS.Book(ProjectPath & "Attachments\订货.xls") '模板存放位置
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(5,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Dim fl As String = ProjectPath & "Reports\订货单.xls" '导出后excel表存放位置
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()