主题：求助，我想在窗口上建一个生成excel报表的按钮，要怎么写代码？

求助，我想在窗口（不是菜单）上建一个生成excel报表的按钮，要怎么写代码？在我选定哪一行就能导出哪一行的报表

我是一个数据库里有多个表，每个表的数据内容不一样，而且每个表中我是一行记录一个工程数据，然后每个工程都有不同的竣工资料，竣工资料的数据来源于对应的行，所以我不能在使用菜单里的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()