若一个FOXTABLE文件有9张表(表一,表二,.....表九),针对每个表设计了EXCEL报表模版,现将9个EXCEL报表模版合成一个EXCEL文件(123.EXCEL).每次打印时时,在"管理器"中设置好后,需全选FOXTABLE文件9张表,再点击"生成EXCEL报表",再选择相应文件,即完成所有操作.我要问的问题是:
能不能通过代码让FOXTABLE文件中所有表格处于全选状态,并使用模版文件直接生成"EXCEL报表"?
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
Dim Book As New XLS.Book(ProjectPath & "Attachments\test.xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\test.xls"
Proc.Start()
以下是引用abcdzabcdz在2009-4-1 9:50:00的发言:
若一个FOXTABLE文件有9张表(表一,表二,.....表九),针对每个表设计了EXCEL报表模版,现将9个EXCEL报表模版合成一个EXCEL文件(123.EXCEL).每次打印时时,在"管理器"中设置好后,需全选FOXTABLE文件9张表,再点击"生成EXCEL报表",再选择相应文件,即完成所有操作.我要问的问题是:
能不能通过代码让FOXTABLE文件中所有表格处于全选状态,并使用模版文件直接生成"EXCEL报表"?
关于打印,看如下的贴子,你要问的自动生成EXCEL报表基本上面都有:
http://fox.egridsoft.com/dispbbs.asp?boardid=2&Id=2230&page=2