以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]报表按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5670)

--  作者：易服 --  发布时间：2009/12/28 10:15:00 --  [求助]报表按钮 12.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

--  作者：狐狸爸爸 --  发布时间：2009/12/28 10:24:00 --   模板中定义一下报表有效区域看看

--  作者：易服 --  发布时间：2009/12/28 10:42:00 --   加上<End>可以