以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表保存时，能自动命名文件名吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89416)
--  作者：szsmall
--  发布时间：2016/8/21 16:00:00
--  excel报表保存时，能自动命名文件名吗
根据帮助，只能导出指定名称的excel文件（如出库单）。有没办法，能根据表格内容，动态生成？如以当前订购单号等为文件名的excel。


设计好报表模板后，可能需要通过窗口中的按钮来生成Excel报表，而不是通过菜单，此时可以参考下面的代码：

Dim Book As NewXLS.Book(ProjectPath&"Attachments\\出库单.xls")
Dim fl As String = ProjectPath&"Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As NewProcess\'打开工作簿
Proc.File = fl
Proc.Start()

[此贴子已经被作者于2016/8/21 16:00:41编辑过]
--  作者：大红袍
--  发布时间：2016/8/21 16:13:00
--  

Dim fl As String = ProjectPath&"Reports\\出库单.xls"

 

改成

 

Dim fl As String = ProjectPath&"Reports\\" & Tables("出库单").Current("订购单号") & ".xls"
--  作者：szsmall
--  发布时间：2016/8/21 18:48:00
--  
如果模板抬头，想把简称替换成全称。如出库单显示“甲公司”，模板想显示“广东省甲方有限公司”？
--  作者：Hyphen
--  发布时间：2016/8/22 8:33:00
--  
参考：
--  作者：szsmall
--  发布时间：2016/8/22 21:12:00
--  
能提供一下代码吗？帮助里的标志和用代码添加“制单人信息”，与我想把简称换成全称，好像不一样
--  作者：大红袍
--  发布时间：2016/8/22 21:35:00
--  
 要引用哪一列的值？上传实例说明。