共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]报表按钮
1楼
易服 发表于：2009/12/28 10:15:0012.27版报表按钮
Dim Names() AS String = {"林分属性","插花统计","林种统计","经营类型"}
For Each Name As String In Names
With Tables("分组统计")
.Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
Book.Build() '生成细节区
Book.Save( "d:\My Documents\Reports-:special:1:-& Name & ".xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "d:\My Documents\Reports-:special:1:-& Name & ".xls"
Proc.Start()
Next
此主题相关图片如下：2009-12-28 9-57-13.png
Dim Names() AS String = {"林分属性","插花统计","林种统计","经营类型"}
For Each Name As String In Names
With Tables("分组统计")
.Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
Book.Build() '生成细节区
Book.Save( "d:\My Documents\Reports-:special:1:-& Name & ".xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "d:\My Documents\Reports-:special:1:-& Name & ".xls"
Proc.Start()
Next
此主题相关图片如下：2009-12-28 9-57-13.png2楼
狐狸爸爸 发表于：2009/12/28 10:24:00模板中定义一下报表有效区域看看
3楼
易服 发表于：2009/12/28 10:42:00加上<End>可以
共3 条记录, 每页显示 10 条, 页签:
[1]