Foxtable(狐表) → 用户栏目 → 专家坐堂 → excle报表命名问题


  共有4568人关注过本帖树形打印复制链接

主题：excle报表命名问题
帅哥哟，离线，有人找我吗？
seintfei
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：123 积分：921 威望：0 精华：0 注册：2013/8/12 23:47:00 		excle报表命名问题  发帖心情 Post By：2013/12/7 11:09:00 [只看该作者]

生成excel报表，文件名能根据指定值生成吗？比如根据 报价单编号 生成...
[此贴子已经被作者于2013-12-7 11:10:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/12/7 11:11:00 [只看该作者]

当然可以 名称是可以随意指定的
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿 这里可以随意设置名称
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
longtechwj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00 		  发帖心情 Post By：2013/12/7 11:45:00 [只看该作者]

估计他是想直接叫起一个EXCEL
而非模板，然后以编码命名
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/12/7 11:56:00 [只看该作者]

你是说直接导出为Excel文件然吗?



同样可以自定义名称的

CurrentTable.SaveExcel("C:\data\我的名称.xls","订单")
 回到顶部
帅哥哟，离线，有人找我吗？
seintfei
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：123 积分：921 威望：0 精华：0 注册：2013/8/12 23:47:00 		  发帖心情 Post By：2013/12/7 15:58:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\报价单.xls")
Dim fl As String = ProjectPath & "Reports\报价单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

以上代码如何改成 文件名是取值 某列（报价单编号），弹出保存文件路径对话框，再打开文件
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/12/7 16:02:00 [只看该作者]

http://www.foxtable.com/help/topics/0329.htm

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(ProjectPath & "Attachments\报价单.xls")
Book.Build() '生成细节区
Book.Save(dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
seintfei
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：123 积分：921 威望：0 精华：0 注册：2013/8/12 23:47:00 		  发帖心情 Post By：2013/12/7 16:35:00 [只看该作者]

能不能文件名自动取值（取列内容，例如取报价单编号）？ 保存对话框选保存路径就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/12/7 16:42:00 [只看该作者]


Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
dlg.FileName=tables("表A").current("报价单号") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(ProjectPath & "Attachments\报价单.xls")
Book.Build() '生成细节区
Book.Save(dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If



图片点击可在新窗口打开查看

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

 
 回到顶部
帅哥哟，离线，有人找我吗？
seintfei
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：123 积分：921 威望：0 精华：0 注册：2013/8/12 23:47:00 		  发帖心情 Post By：2013/12/7 16:59:00 [只看该作者]

谢谢您的建议~

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询