以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]EXCEL表基于模板导出及保存问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20598)
--  作者：ttzb2000
--  发布时间：2012/6/13 13:45:00
--  [求助]EXCEL表基于模板导出及保存问题

在帮助中看到可以引用事先做的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"


这段如何改？

 
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2012/6/13 15:31:00
--  

这是EXCEL中工作薄的名称。我是指整个的。我不想保存的EXCEL名称为《出库单》。保存的下来的是《出库单20120613》这样的EXCEL表。就是出库单不变，后面加当天时间。
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2012/6/13 16:24: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编辑过]
--  作者：ttzb2000
--  发布时间：2012/6/14 11:36:00
--  

谢谢，完成了。
--  作者：lxhmax
--  发布时间：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、！
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2012/9/12 12:13:00
--  
谢谢狐爸的高效解答~！