Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]EXCEL表基于模板导出及保存问题


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

主题：[求助]EXCEL表基于模板导出及保存问题
帅哥哟，离线，有人找我吗？
ttzb2000
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：818 威望：0 精华：0 注册：2012/5/24 14:18:00 		[求助]EXCEL表基于模板导出及保存问题  发帖心情 Post By：2012/6/13 13:45:00 [只看该作者]

在帮助中看到可以引用事先做的EXCEL模板导出报表

 

 

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()

 

 

那我如果不想导出的EXCEL表格名称是固定的。保存的名称是出库单+当天时间，比如 出库单20120613  那下面


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


这段如何改？

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


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/6/13 14:18:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区

Book.sheets(0).name = "新的名称"
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
ttzb2000
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：818 威望：0 精华：0 注册：2012/5/24 14:18:00 		  发帖心情 Post By：2012/6/13 15:31:00 [只看该作者]

这是EXCEL中工作薄的名称。我是指整个的。我不想保存的EXCEL名称为《出库单》。保存的下来的是《出库单20120613》这样的EXCEL表。就是出库单不变，后面加当天时间。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/6/13 16:13:00 [只看该作者]

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

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


加好友 发短信
等级：幼狐 帖子：110 积分：818 威望：0 精华：0 注册：2012/5/24 14:18:00 		  发帖心情 Post By：2012/6/13 16:24:00 [只看该作者]

保存下来的文件没有日期。图片点击可在新窗口打开查看

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


加好友 发短信
等级：童狐 帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00 		  发帖心情 Post By：2012/6/14 8:49:00 [只看该作者]

Dim NewName As String
NewName = "Reports\出库单" & Format( Date.Today , "yyyyMMdd")& ".xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & NewName
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2012-6-14 8:56:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ttzb2000
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：818 威望：0 精华：0 注册：2012/5/24 14:18:00 		  发帖心情 Post By：2012/6/14 11:36:00 [只看该作者]

谢谢，完成了。
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：621 积分：5549 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2012/9/12 11:58:00 [只看该作者]

以下是引用迷狐在2012-6-14 8:49:00的发言：
Dim NewName As String
NewName = "Reports\出库单" & Format( Date.Today , "yyyyMMdd")& ".xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & NewName
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2012-6-14 8:56:41编辑过]

对于这个情况，我想请教下，如果我要输出的报表名称是由出库单里面的“出库单号&出库单”，即“00001出库单”这样的要怎么弄呢？谢谢啦~1、！
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/9/12 12:02:00 [只看该作者]

Dim r As Row = Tables("出库单").Current
Dim NewName As String
NewName = "Reports\出库单" & r("出库单号") & "出库单.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & NewName
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：621 积分：5549 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2012/9/12 12:13:00 [只看该作者]

谢谢狐爸的高效解答~！

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