以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，我想在窗口上建一个生成excel报表的按钮，要怎么写代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27429)
--  作者：zyg719
--  发布时间：2012/12/31 18:59:00
--  求助，我想在窗口上建一个生成excel报表的按钮，要怎么写代码？
求助，我想在窗口（不是菜单）上建一个生成excel报表的按钮，要怎么写代码？在我选定哪一行就能导出哪一行的报表
--  作者：sunsenfeng
--  发布时间：2012/12/31 22:58:00
--  

太宽了，如果就一行，太浪费纸了。

大师们说了，上传个例子，帮你决绝下
--  作者：飞
--  发布时间：2013/1/1 14:29:00
--  
xls.reports(   ).build
--  作者：zyg719
--  发布时间：2013/1/4 11:18:00
--  

我是一个数据库里有多个表，每个表的数据内容不一样，而且每个表中我是一行记录一个工程数据，然后每个工程都有不同的竣工资料，竣工资料的数据来源于对应的行，所以我不能在使用菜单里的excel报表导出功能，而是在每个表对应的录入窗口上增加对应的excel报表导出按钮，使用按钮设计中默认的代码不行

Dim Book As New XLS.Book(ProjectPath & "Attachments\\开工报告.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\\开工报告.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\铁塔开工报告.xls"
Proc.Start()

 
--  作者：lin_hailun
--  发布时间：2013/1/4 11:25:00
--  
以下是引用zyg719在2013-1-4 11:18:00的发言：

我是一个数据库里有多个表，每个表的数据内容不一样，而且每个表中我是一行记录一个工程数据，然后每个工程都有不同的竣工资料，竣工资料的数据来源于对应的行，所以我不能在使用菜单里的excel报表导出功能，而是在每个表对应的录入窗口上增加对应的excel报表导出按钮，使用按钮设计中默认的代码不行


你说的不行，是什么意思？请做一个小例子上传上来说明。
--  作者：nblwar
--  发布时间：2013/1/4 22:39:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\开工报告.xls")
Book.Build() 
Book.Save(ProjectPath & "Reports\\开工报告.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\铁塔开工报告.xls"
Proc.Start()


多了两个字